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.38 -r1.39
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	22 Jan 2018 09:56:44 -0000	1.38
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	22 Jan 2018 18:44:32 -0000	1.39
@@ -378,7 +378,7 @@
 
   upvar $opts(uplevel) $result_name rows
 
-  set rows }{}
+  set rows {}
   while { [ns_db getrow $db $row] } {
     lappend rows [ns_set value $row 0]
   }