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 -r1.44 -r1.45
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	8 May 2018 18:02:44 -0000	1.44
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	9 May 2018 15:33:29 -0000	1.45
@@ -341,7 +341,7 @@
         }
 
         # build the values on which to group
-        set group_values {}
+        set group_values [list]
         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 {}
+            set r_list [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 {}
+            set sort_list [list]
 
             for { set i 1 } { $i <= $rowcount } { incr i } {
                 upvar $multirow_level_up $name:$i row
@@ -1002,7 +1002,7 @@
         }
 
         get_query {
-            set keyvalues {}
+            set keyvalues [list]
             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]