Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	23 Apr 2018 21:32:46 -0000	1.36
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	25 Apr 2018 19:23:26 -0000	1.37
@@ -73,7 +73,7 @@
 
     upvar $array_ref arr
 
-    set ret [list]
+    set ret {}
     foreach {key value} [array get arr] {
         lappend ret "-$key" $value
     }
@@ -165,7 +165,7 @@
 
     upvar $listref inlist
     if { ! [info exists inlist] } {
-        set inlist [list]
+        set inlist {}
     }
 
     # inlist represents the top level of the data structure into which
@@ -181,7 +181,7 @@
     if { [info exists values($next)] } {
         set next_list $values($next)
     } else {
-        set next_list [list]
+        set next_list {}
     }
 
     # the number of additional arguments after next determines how many
@@ -228,7 +228,7 @@
     @return A list in the form { key value key value key value ... }
 } {
 
-    set result [list]
+    set result {}
 
     for { set i 0 } { $i < [ns_set size $set] } { incr i } {
 
@@ -364,7 +364,7 @@
 
     upvar $level $name:rowcount rowcount
 
-    set rows [list]
+    set rows {}
 
     for { set i 1 } { $i <= $rowcount } { incr i } {
 
@@ -594,7 +594,7 @@
     Return a list of numbers, {1 2 3 ... n}
 } {
 
-    set ret [list]
+    set ret {}
     for {set i $start_at} { $i <= $last_number } {incr i} {
         lappend ret $i
     }