Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/01-database-procs.tcl,v
diff -u -N -r1.1.2.16 -r1.1.2.17
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	24 Aug 2020 23:50:18 -0000	1.1.2.16
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	22 Sep 2020 08:44:53 -0000	1.1.2.17
@@ -1608,8 +1608,9 @@
         upvar 1 $column_set selection
     }
 
+    set bindArg [expr {[info exists bind] ? [list -bind $bind] : ""}]
     set counter 0
-    foreach selection [uplevel [list db_list_of_ns_sets -dbn $dbn $statement_name $sql]] {
+    foreach selection [uplevel [list db_list_of_ns_sets -dbn $dbn $statement_name $sql {*}${bindArg}]] {
         incr counter
         if { ![info exists column_set] } {
             set set_array [ns_set array $selection]