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}]
         }
 }