Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.50 -r1.51
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	1 May 2018 09:34:09 -0000	1.50
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	9 May 2018 15:33:29 -0000	1.51
@@ -141,7 +141,7 @@
 
   template::util::get_opts $args
 
-  set elements {}
+  set elements [list]
 
   # check whether this form is being submitted
   upvar #$level $id:submission submission
@@ -785,7 +785,7 @@
     set elements $properties(element_names)
 
     if { $no_api_p } {
-        set elements_no_api {}
+        set elements_no_api [list]
         foreach element $elements {
             if { ![regexp {^__} $element] } {
                 lappend elements_no_api $element
@@ -830,7 +830,7 @@
   get_reference 
 
   set exp [join $args "|"]
-  set values {}
+  set values [list]
 
   foreach element_name $properties(element_names) {
     if { [regexp $exp $element_name match] } {