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.47 -r1.48
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	25 Apr 2018 19:23:25 -0000	1.47
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	9 May 2018 15:33:28 -0000	1.48
@@ -629,7 +629,7 @@
 
             aa_true "List of parameters is not empty" [expr {[llength $parameters] != 0}]
 
-            array set values {}
+            array set values [list]
 
             # Set the values
             foreach parameter $parameters {