Index: openacs-4/packages/acs-tcl/tcl/html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/html-procs.tcl	25 Apr 2018 19:23:26 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/html-procs.tcl	9 May 2018 15:33:29 -0000	1.5
@@ -38,19 +38,19 @@
     dom parse -html -keepEmpties $html doc
     set root [$doc documentElement]
 
-    set forms {}
+    set forms [list]
     # Get every form...
     foreach f [$root selectNodes {//form}] {
         set form [list "attributes" [util::get_node_attributes -node $f]]
-        set fields {}
+        set fields [list]
         # ...every input tag
         foreach input [$f selectNodes {//input}] {
             lappend fields [list tag "input" attributes [util::get_node_attributes -node $input]]
         }
         # ...every select tag with its options
         foreach select [$f selectNodes {//select}] {
             set field [list tag "select" attributes [util::get_node_attributes -node $select]]
-            set options {}
+            set options [list]
             foreach option [$f selectNodes {option}] {
                 lappend options [list attributes [$option attributes] value [$option nodeValue]]
             }
@@ -148,7 +148,7 @@
     }
     
     # Now vars must be translated in export_vars form
-    set vars {}
+    set vars [list]
     foreach {name value} [array get v] {
       # Multiple values must be specified 
       # with the :multiple modifier