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.34.2.2 -r1.34.2.3
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	13 Jan 2020 16:31:39 -0000	1.34.2.2
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	19 Oct 2021 09:05:12 -0000	1.34.2.3
@@ -743,18 +743,12 @@
         set query [uplevel 2 "db_map ${statement_name}_partial"]
     }
 
-    # DEDS: quote the ids so that we are not
-    #       necessarily limited to integer keys
-    set quoted_ids [list]
-    foreach one_id $ids {
-        lappend quoted_ids [::ns_dbquotevalue $one_id]
-    }
-    set in_list [join $quoted_ids ","]
+    set in_list [::ns_dbquotelist $ids]
     if { ! [regsub CURRENT_PAGE_SET $query $in_list query] } {
         error "Token CURRENT_PAGE_SET not found in page data query  ${statement_name}_partial: $query"
     }
 
-    if { [llength $in_list] == 0 } {
+    if {$in_list eq ""} {
         uplevel 2 "set $datasource:rowcount 0"
         return
     }
@@ -814,18 +808,12 @@
 
         set query "CURRENT_PAGE_SET"
 
-        # DEDS: quote the ids so that we are not
-        #       necessarily limited to integer keys
-        set quoted_ids [list]
-        foreach one_id $ids {
-            lappend quoted_ids [::ns_dbquotevalue $one_id]
-        }
-        set in_list [join $quoted_ids ","]
+        set in_list [::ns_dbquotelist $ids]
         if { ! [regsub CURRENT_PAGE_SET $query $in_list query] } {
             error "Token CURRENT_PAGE_SET not found."
         }
 
-        if { [llength $in_list] == 0 } {
+        if {$in_list eq ""} {
             uplevel 2 "set $datasource:rowcount 0"
             return
         }