Index: openacs-4/packages/acs-templating/tcl/paginator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/paginator-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	30 Apr 2018 12:45:00 -0000	1.30
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	9 May 2018 15:33:29 -0000	1.31
@@ -187,7 +187,7 @@
     # perform the query in the calling scope so bind variables have effect
 
     upvar 2 __paginator_ids ids
-    set ids {}
+    set ids [list]
 
     set full_statement_name [uplevel 2 "db_qd_get_fullname $statement_name"]
 
@@ -255,7 +255,7 @@
 
         set i 0
         set page_size $properties(pagesize)
-        set context_ids {}
+        set context_ids [list]
         set row_ids ""
 
         foreach row $ids {
@@ -458,7 +458,7 @@
 
     if { $end > $page_count } { set end $page_count }
 
-    set pages {}
+    set pages [list]
 
     for { set i $start } { $i <= $end } { incr i } {
         lappend pages $i
@@ -499,7 +499,7 @@
 
     if { $end > $page_count } { set end $page_count) }
 
-    set pages {}
+    set pages [list]
 
     for { set i $start } { $i <= $end } { incr i $group_size } {
         lappend pages $i
@@ -745,7 +745,7 @@
 
     # DEDS: quote the ids so that we are not
     #       necessarily limited to integer keys
-    set quoted_ids {}
+    set quoted_ids [list]
     foreach one_id $ids {
         lappend quoted_ids "'[DoubleApos $one_id]'"
     }