Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.87.4.6 -r1.87.4.7
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Oct 2013 14:23:56 -0000	1.87.4.6
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	18 Aug 2014 09:23:45 -0000	1.87.4.7
@@ -869,7 +869,7 @@
         -message_array element_messages
 
     # Handle validation errors
-    if { [llength [array names element_messages]] > 0 } {
+    if { [array size element_messages] > 0 } {
         return [list \
                     creation_status "data_error" \
                     creation_message {} \
@@ -1118,7 +1118,7 @@
         -message_array element_messages
 
     # Handle validation errors
-    if { [llength [array names element_messages]] > 0 } {
+    if { [array size element_messages] > 0 } {
         return [list \
                     update_status "data_error" \
                     update_message {} \