Index: openacs-4/packages/dynamic-types/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/form-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dynamic-types/tcl/form-procs.tcl	25 Apr 2018 19:47:47 -0000	1.18
+++ openacs-4/packages/dynamic-types/tcl/form-procs.tcl	9 May 2018 15:33:31 -0000	1.19
@@ -291,8 +291,8 @@
     #######################################################
     # Build up insert statement from metadata
     #
-    set columns {}
-    set values {}
+    set columns [list]
+    set values [list]
 
     # set default fields with provided values
     foreach var_spec $default_fields {
@@ -480,7 +480,7 @@
                 insert into ${type_info(table_name)}i ([join $columns ", "])
                 values ([join $values ", "])"
 	} else {
-	    set updates {}
+	    set updates [list]
 
 	    set all_columns [concat $columns $missing_columns]
 	    set all_values [concat $values $missing_columns]
@@ -551,8 +551,8 @@
     # Generate form elements for each attribute / widget
     for {set w 1} {$w <= $widget_count} {incr w} {
         template::multirow get widgets $w 
-        set html_options {}
-        set widget_options {}
+        set html_options [list]
+        set widget_options [list]
 
 	# exclude specified widgets
 	if {[lsearch -exact $exclude $widgets(attribute_name)] > -1} {
@@ -823,7 +823,7 @@
                         # if the option list is empty, return
                         # somethign the select widget can use
                         if {$value eq ""} {
-                            set value [list {}]
+                            set value [list [list]]
                         }
                     }             
                 }