Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -N -r1.42 -r1.43
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	25 Apr 2018 08:42:17 -0000	1.42
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	25 Apr 2018 19:23:26 -0000	1.43
@@ -341,7 +341,7 @@
         }
 
         # build the values on which to group
-        set group_values [list]
+        set group_values {}
         foreach group $groups {
             lappend group_values [ns_set get $row $group]
         }
@@ -671,7 +671,7 @@
 
         pop {
             upvar $multirow_level_up $name:rowcount rowcount $name:columns columns
-            set r_list [list]
+            set r_list {}
             if {$rowcount > 0} {
                 upvar $multirow_level_up $name:$rowcount row
                 for { set i 0 } { $i < [llength $columns] } { incr i } {
@@ -918,7 +918,7 @@
 
             set sort_cols [lrange $args $i end]
 
-            set sort_list [list]
+            set sort_list {}
 
             for { set i 1 } { $i <= $rowcount } { incr i } {
                 upvar $multirow_level_up $name:$i row
@@ -1002,7 +1002,7 @@
         }
 
         get_query {
-            set keyvalues [list]
+            set keyvalues {}
             for { set i 0 } { $i < [ns_set size $params] } { incr i } {
                 set key [ns_set key $params $i]
                 set value [ns_set value $params $i]