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.3 -r1.34.2.4
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	19 Oct 2021 09:05:12 -0000	1.34.2.3
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	28 Dec 2021 16:45:05 -0000	1.34.2.4
@@ -230,10 +230,7 @@
             set total_so_far 1
 
             while { \[db_getrow \$db \$selection\] } {
-                set this_result \[list\]
-                for { set i 0 } { \$i < \[ns_set size \$selection\] } { incr i } {
-                    lappend this_result \[ns_set value \$selection \$i\]
-                }
+                set this_result \[ns_set values \$selection\]
                 if { $print_p } {
                     if { \$total_so_far % 250 == 0 } {
                         ns_write \"&#133;\$total_so_far \"
@@ -286,10 +283,7 @@
             set total_so_far 1
 
             while { \[db_getrow \$db \$selection\] } {
-                set this_result \[list\]
-                for { set i 0 } { \$i < \[ns_set size \$selection\] } { incr i } {
-                    lappend this_result \[ns_set value \$selection \$i\]
-                }
+                set this_result \[ns_set values \$selection \]
                 if { $print_p } {
                     if { \$total_so_far % 250 == 0 } {
                         ns_write \"...\$total_so_far \"