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 -N -r1.32 -r1.33
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	11 Jun 2018 22:04:00 -0000	1.32
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	25 Jul 2018 01:35:53 -0000	1.33
@@ -747,7 +747,7 @@
     #       necessarily limited to integer keys
     set quoted_ids [list]
     foreach one_id $ids {
-        lappend quoted_ids "'[DoubleApos $one_id]'"
+        lappend quoted_ids [::ns_dbquotevalue $one_id]
     }
     set in_list [join $quoted_ids ","]
     if { ! [regsub CURRENT_PAGE_SET $query $in_list query] } {
@@ -819,7 +819,7 @@
         #       necessarily limited to integer keys
         set quoted_ids [list]
         foreach one_id $ids {
-            lappend quoted_ids "'[DoubleApos $one_id]'"
+            lappend quoted_ids [::ns_dbquotevalue $one_id]
         }
         set in_list [join $quoted_ids ","]
         if { ! [regsub CURRENT_PAGE_SET $query $in_list query] } {