Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.59 -r1.60
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	25 Apr 2018 19:23:25 -0000	1.59
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	9 May 2018 15:33:28 -0000	1.60
@@ -178,7 +178,7 @@
     lang::message::check $locale $package_key $message_key $message
     
     # Build up an array of columns to set
-    array set cols {}
+    array set cols [list]
     if { $update_sync_p } {
         set cols(sync_time) [db_map sync_time]
     } else {
@@ -212,7 +212,7 @@
         set cols(deleted_p) :deleted_p
 
         # For use in update query
-        set set_clauses {}
+        set set_clauses [list]
         foreach col [array names cols] {
             lappend set_clauses "$col = $cols($col)"
         }
@@ -253,8 +253,8 @@
             set cols(creation_user) :creation_user
         }
         
-        set col_clauses {}
-        set val_clauses {}
+        set col_clauses [list]
+        set val_clauses [list]
         foreach col [array names cols] {
             lappend col_clauses $col
             lappend val_clauses $cols($col)
@@ -505,7 +505,7 @@
         }
     }
 
-    set set_clauses {}
+    set set_clauses [list]
     foreach name [array names edit_array] {
         lappend set_clauses "$name = :$name"
         set $name $edit_array($name)
@@ -542,7 +542,7 @@
     @author Peter Marklund
 } {
     # Build any package and locale where clauses
-    set where_clauses {}
+    set where_clauses [list]
     foreach col {package_key locale} {
         if { [set $col] ne "" } {
             lappend where_clauses "$col = :${col}"
@@ -596,7 +596,7 @@
     @author Peter Marklund (peter@collaboraid.biz)
     @creation-date 12 November 2002
 } {
-    set variables_list {}
+    set variables_list [list]
     set remaining_message $message
     while { [regexp [embedded_vars_regexp] $remaining_message \
             match before_percent percent_match remaining_message] } {