Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.94.2.15 -r1.94.2.16
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	31 May 2021 12:35:58 -0000	1.94.2.15
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	4 Oct 2021 15:24:02 -0000	1.94.2.16
@@ -591,7 +591,10 @@
         set list_properties(page_query_original) $list_properties(page_query_substed)
 
         # Now wrap the provided query with the limit information
-        set list_properties(page_query_substed) [db_map pagination_query]
+        set list_properties(page_query_substed) [subst {
+            $list_properties(page_query_substed) offset [expr {$first_row - 1}]
+            fetch first [expr {$last_row - $first_row + 1}] rows only
+        }]
 
         # Generate a paginator name which includes the page group we're in
         # and all the filter values, so the paginator cahing works properly