Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/cms/tcl/form-procs.tcl	25 Apr 2018 19:47:46 -0000	1.31
+++ openacs-4/packages/cms/tcl/form-procs.tcl	9 May 2018 15:33:30 -0000	1.32
@@ -57,8 +57,8 @@
     upvar content_type content_type
     upvar opts opts
 
-    set code_params   {}
-    set html_params   {}
+    set code_params   [list]
+    set html_params   [list]
 
     # Process the results of the query. 
     for { set i $start_row } { $i <= $rowcount  } { incr i } {
@@ -207,8 +207,8 @@
     set last_attribute_name ""
     set new_section_p 1
 
-    set code_params {}
-    set html_params {}
+    set code_params [list]
+    set html_params [list]
     
     # Perform a gigantic query to retrieve all metadata
     query_form_metadata
@@ -250,8 +250,8 @@
 		ns_log debug "content::get_revision_form:   type_label: $last_type"
                 eval $form_element
                 
-                set code_params {}
-                set html_params {}
+                set code_params [list]
+                set html_params [list]
             }
 
 
@@ -396,8 +396,8 @@
             if { $i != 1 } {                
                 content::process_revision_form_dml
             }
-            set columns {}
-            set values {}
+            set columns [list]
+            set values [list]
         }
         
         # fetch the value of the attribute from the form
@@ -493,8 +493,8 @@
             if { $i != 1 } {                
                 content::process_insert_statement
             }
-            set columns {}
-            set values {}
+            set columns [list]
+            set values [list]
         }
         
         # fetch the value of the attribute from the form
@@ -552,7 +552,7 @@
     Assemble a passthrough list out of variables
 
 } {
-    set result {}
+    set result [list]
     foreach varname $args {
         upvar $varname var
         lappend result [list $varname $var]
@@ -783,9 +783,9 @@
     # initialize the column and value list 
     set columns [list item_id revision_id creation_user creation_ip]
     set values [list :item_id :revision_id null null]
-    set default_columns {} 
-    set default_values {}
-    set missing_columns {}
+    set default_columns [list] 
+    set default_values [list]
+    set missing_columns [list]
 
     # query for attribute names and datatypes
     foreach attribute [get_attributes $content_type attribute_name datatype default_value ancestor] { 
@@ -1344,7 +1344,7 @@
 
     set attribute_data [eval get_type_attribute_params [array names type_lookup]]
 
-    set attribute_names {}
+    set attribute_names [list]
     array set attributes_by_type $attribute_data
 
     foreach row $attribute_list { 
@@ -1754,8 +1754,8 @@
     # Assemble the list of columns to query, handling dates
     # correctly 
 
-    set columns {}
-    set attr_types {}  
+    set columns [list]
+    set attr_types [list]  
     foreach attr $attributes {
         if { [template::element exists $form_name "$prefix$attr"] } {
             set datatype [template::element get_property $form_name "$prefix$attr" datatype]