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 -N -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 {} \
Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -N -r1.42.8.3 -r1.42.8.4
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	2 Oct 2013 08:56:26 -0000	1.42.8.3
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	18 Aug 2014 09:23:46 -0000	1.42.8.4
@@ -659,7 +659,7 @@
                 }
                 array unset retrieved_value $parameter
             }
-            aa_true "Only the right parameters were retrieved" [expr {[llength [array names retrieved_value]] == 0}]
+            aa_true "Only the right parameters were retrieved" [expr {[array size retrieved_value] == 0}]
         }
 }
 
Index: openacs-4/packages/acs-automated-testing/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/index.tcl,v
diff -u -N -r1.5.10.1 -r1.5.10.2
--- openacs-4/packages/acs-automated-testing/www/index.tcl	30 Aug 2013 08:11:00 -0000	1.5.10.1
+++ openacs-4/packages/acs-automated-testing/www/index.tcl	18 Aug 2014 09:26:43 -0000	1.5.10.2
@@ -22,7 +22,7 @@
         if { [file exists $test_path] } {
             aa_test::parse_test_file -path $test_path -array test
             array set testcase_failure $test(testcase_failure)
-            set service(num_errors) [llength [array names testcase_failure]]
+            set service(num_errors) [array size testcase_failure]
         } 
 	
 	set admin_login_url [export_vars -base "$service(url)/register/auto-login" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}]
Index: openacs-4/packages/xowiki/tcl/import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v
diff -u -N -r1.27.2.6 -r1.27.2.7
--- openacs-4/packages/xowiki/tcl/import-procs.tcl	1 Apr 2014 18:37:34 -0000	1.27.2.6
+++ openacs-4/packages/xowiki/tcl/import-procs.tcl	18 Aug 2014 09:18:03 -0000	1.27.2.7
@@ -133,7 +133,7 @@
     # Make a fix-point iteration during import. Do only import, when
     # all prerequirement pages are already loaded.
     #
-    while {[llength [array names todo]] > 0} {
+    while {[array size todo] > 0} {
       set new 0
       foreach o [array names todo] {
         #my msg "work on $o [$o info class] [$o name]"