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 -r1.42.8.2 -r1.42.8.3
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	2 Oct 2013 08:29:06 -0000	1.42.8.2
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	2 Oct 2013 08:56:26 -0000	1.42.8.3
@@ -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 {[llength [array names retrieved_value]] == 0}]
         }
 }