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)