Index: openacs-4/packages/acs-admin/www/monitor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/monitor.tcl,v
diff -u -r1.2.16.1 -r1.2.16.2
--- openacs-4/packages/acs-admin/www/monitor.tcl	12 Oct 2013 14:29:49 -0000	1.2.16.1
+++ openacs-4/packages/acs-admin/www/monitor.tcl	18 Aug 2014 09:28:19 -0000	1.2.16.2
@@ -63,7 +63,7 @@
         }
     }
 
-set distinct [llength [array names ip_p]]
+set distinct [array size ip_p]
 
 # run standard Unix uptime command to get load average (crude measure of 
 # system health)
Index: openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl,v
diff -u -r1.4.22.2 -r1.4.22.3
--- openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	5 Aug 2014 10:08:55 -0000	1.4.22.2
+++ openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	18 Aug 2014 09:28:19 -0000	1.4.22.3
@@ -39,7 +39,7 @@
     
 }
 
-set has_parameters_p [expr {[llength [array names parameters]] > 0}]
+set has_parameters_p [expr {[array size parameters] > 0}]
 
 set first_param_name ""
 if { $has_parameters_p } {
Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.40.6.3 -r1.40.6.4
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	2 Oct 2013 22:55:57 -0000	1.40.6.3
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Aug 2014 09:29:16 -0000	1.40.6.4
@@ -101,7 +101,7 @@
         array set parsed_callback_array $spec_array(callbacks)
     
         aa_true "Only one permissible callback should be returned, got array [array get parsed_callback_array]" \
-	    [expr {[llength [array names parsed_callback_array]] == 1}]
+	    [expr {[array size parsed_callback_array] == 1}]
     
         aa_equals "Checking name of callback of allowed type $allowed_type" \
                 $parsed_callback_array($allowed_type) $callback_array($allowed_type)