Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	7 Aug 2017 23:48:01 -0000	1.34
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	25 Apr 2018 19:23:26 -0000	1.35
@@ -431,7 +431,7 @@
 
   # if the element is optional and the value is an empty string, then ignore
   if { $is_optional && [lindex $values 0] eq "" } {
-    set values [list]
+    set values {}
 
     # also clobber the value(s) for a submit widget
     if {$element(widget) eq "submit"} {
@@ -487,10 +487,10 @@
 
   } else {
 
-    set element(validate) [list]
+    set element(validate) {}
   }
 
-  set v_errors [list]
+  set v_errors {}
 
   foreach value $values {
   
@@ -605,7 +605,7 @@
     set values [ns_querygetall $element(id)]
 
     # QUIRK: ns_querygetall returns a single-element list {{}} for no values
-    if { [string equal $values {{}}] } { set values [list] }
+    if { [string equal $values {{}}] } { set values {} }
 
   } else {
     set values [template::data::transform::$datatype element]
@@ -758,7 +758,7 @@
       # breaks eg ad_form.
       #
     if { [string equal opts(value) {}] } {
-      set opts(values) [list]
+      set opts(values) {}
     } else {
       set opts(values) [list $opts(value)]
     }