Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v
diff -u -N -r1.56 -r1.57
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	9 Apr 2018 20:11:54 -0000	1.56
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	25 Apr 2018 19:23:25 -0000	1.57
@@ -207,7 +207,7 @@
 
     @author Peter Marklund
 } {
-    set catalog_paths [list]
+    set catalog_paths {}
 
     set catalog_dir [lang::catalog::package_catalog_dir $package_key]
     foreach file_path [glob -nocomplain "$catalog_dir/*"] {
@@ -232,7 +232,7 @@
 
     @author Peter Marklund
 } {
-    set message_list [list]
+    set message_list {}
 
     foreach message_tuple [all_messages_for_package_and_locale $package_key $locale] {
         lassign $message_tuple message_key message description
@@ -256,7 +256,7 @@
 
     @author Peter Marklund
 } {
-    set message_list [list]
+    set message_list {}
     db_foreach last_sync_messages {} {
         if { ![template::util::is_true $deleted_p] } {
             lappend message_list $message_key $message
@@ -405,8 +405,8 @@
                 }
 
                 # Get messages and descriptions for the locale
-                set messages_list [list]
-                set descriptions_list [list]
+                set messages_list {}
+                set descriptions_list {}
                 foreach message_tuple [all_messages_for_package_and_locale $package_key $locale] {
                     lassign $message_tuple message_key message description
                     lappend messages_list $message_key $message
@@ -717,7 +717,7 @@
     set message_count(added) 0
     set message_count(updated) 0
     set message_count(deleted) 0
-    set message_count(errors) [list]
+    set message_count(errors) {}
 
     # Form arrays for all three sets of messages
     array set file_messages $file_messages_list
@@ -729,15 +729,15 @@
                                -locale $locale]
 
     foreach arrname { base_messages file_messages db_messages } {
-        set dummy [list]
+        set dummy {}
         foreach elm [lsort [array names $arrname]] {
             lappend dummy "$elm=[set ${arrname}($elm)]"
         }
         ns_log Debug "lang::catalog::import_messages - $arrname: $dummy"
     }
 
     # Remember each time we've processed a key, so we don't process it twice
-    array set message_key_processed_p [list]
+    array set message_key_processed_p {}
 
     # Loop over the union of import and db keys.
     foreach message_key [lsort [concat [array names db_messages] [array names file_messages] [array names base_messages]]] {
@@ -991,7 +991,7 @@
     set message_count(added) 0
     set message_count(updated) 0
     set message_count(deleted) 0
-    set message_count(errors) [list]
+    set message_count(errors) {}
 
     if { $package_key ne "" } {
         set package_key_list $package_key
@@ -1074,7 +1074,7 @@
     set locales_list [concat $en_us_locale_list $other_locales_list]
 
     # Get all catalog files for enabled locales
-    set catalog_files [list]
+    set catalog_files {}
     foreach locale $locales_list {
 
         # If we are only processing certain locales and this is not one of them - continue