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)