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 -r1.90 -r1.91
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Mar 2018 08:09:04 -0000	1.90
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	25 Apr 2018 19:23:26 -0000	1.91
@@ -1326,7 +1326,7 @@
     # we assume sample size of 10%.
     set num_tokens [expr {$num_tokens * 10}]
     set counter 0
-    set list_of_tokens [list]
+    set list_of_tokens {}
 
     # 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 [list]
+    set locations {}
     set portless_locations {}
     #
     # Get Information from configured servers