Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	8 May 2018 22:37:18 -0000	1.53
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	9 May 2018 15:33:28 -0000	1.54
@@ -110,7 +110,7 @@
 
     set multilingual_string_offset "0"
     set offset_string $multilingual_string
-    set indices_list {}
+    set indices_list [list]
 
     while { [regexp -indices $regexp_pattern $offset_string full_match_idx key_match_idx] } {
 
@@ -527,8 +527,8 @@
     set state text
     set out {}
 
-    set report {}
-    set garbage {}
+    set report [list]
+    set garbage [list]
 
     set n 0
 
@@ -807,7 +807,7 @@
 } {
     localize the elements of a list_of_lists
 } {
-    set list_output {}
+    set list_output [list]
     foreach item $list {
 	set item_output [list]
 	foreach part $item {