Index: openacs-4/packages/workflow/tcl/action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/workflow/tcl/action-procs.tcl	14 Oct 2013 17:59:52 -0000	1.36
+++ openacs-4/packages/workflow/tcl/action-procs.tcl	23 Jun 2015 09:45:18 -0000	1.37
@@ -468,7 +468,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 action attributes: [join [array names missing_elm] ", "]"
                 }
             }
Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/workflow/tcl/role-procs.tcl	14 Oct 2013 17:59:52 -0000	1.25
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	23 Jun 2015 09:45:18 -0000	1.26
@@ -254,7 +254,7 @@
                 }
 
                 # Check that there are no unknown attributes
-                if { [llength [array names missing_elm]] > 0 && !$no_complain } {
+                if { [array size missing_elm] > 0 && !$no_complain } {
                     error "Trying to set illegal role attributes: [join [array names missing_elm] ", "]"
                 }
             }
Index: openacs-4/packages/workflow/tcl/state-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/state-procs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/workflow/tcl/state-procs.tcl	14 Oct 2013 17:59:52 -0000	1.18
+++ openacs-4/packages/workflow/tcl/state-procs.tcl	23 Jun 2015 09:45:18 -0000	1.19
@@ -337,7 +337,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 state attributes: [join [array names missing_elm] ", "]"
                 }
             }
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 -N -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] ", "]"
                 }
             }