Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	14 Oct 2013 17:59:52 -0000	1.30
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	23 Jun 2015 09:45:18 -0000	1.31
@@ -317,7 +317,7 @@
                 }
 
                 # Check that there are no unknown attributes
-                if { [llength [array names missing_elm]] > 0 && !$no_complain_p } {
+                if { [array size missing_elm] > 0 && !$no_complain_p } {
                     error "Trying to set illegal workflow attributes: [join [array names missing_elm] ", "]"
                 }
             }