Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.75 -r1.148.2.76
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Jan 2023 10:47:35 -0000	1.148.2.75
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Jan 2023 10:53:19 -0000	1.148.2.76
@@ -515,8 +515,9 @@
     return $result
   }
 
-  ::xo::db::DB-postgresql instproc foreach {{-dbn ""} {-bind ""} {-prepare ""} qn sql body} {
-    set sets [uplevel 1 [list ::xo::dc sets -dbn $dbn -bind $bind -prepare $prepare $qn $sql]]
+  ::xo::db::DB-postgresql instproc foreach {{-dbn ""} {-bind ""} -prepare qn sql body} {
+    set prepare [expr {[info exists prepare] ? [list -prepare $prepare] : ""}]
+    set sets [uplevel 1 [list ::xo::dc sets -dbn $dbn -bind $bind {*}$prepare $qn $sql]]
     foreach answers $sets {
       foreach {att value} [ns_set array $answers] {
         uplevel 1 [list set $att $value]