Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.92 -r1.93
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	2 May 2018 07:19:26 -0000	1.92
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	9 May 2018 15:33:29 -0000	1.93
@@ -1326,7 +1326,7 @@
     # we assume sample size of 10%.
     set num_tokens [expr {$num_tokens * 10}]
     set counter 0
-    set list_of_tokens {}
+    set list_of_tokens [list]
 
     # the best thing to use here would be an array_dml, except
     # that an array_dml makes it hard to use sysdate and sequences.
@@ -1941,7 +1941,7 @@
     @return insecure location and secure location followed possibly by alternate location(s) as a list.
 
 } {
-    set locations {}
+    set locations [list]
     set portless_locations {}
     #
     # Get Information from configured servers