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 -r1.103.2.10 -r1.103.2.11
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Oct 2016 19:22:11 -0000	1.103.2.10
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Nov 2016 00:09:21 -0000	1.103.2.11
@@ -467,6 +467,7 @@
     #if {$sql eq ""} {set sql [my get_sql $qn]}
     if {$bind ne ""} {set bindOpt [list -bind $bind]} {set bindOpt ""}
     set qn [uplevel [list [self] qn $qn]]
+    #ns_log notice "### [list ::db_foreach -dbn $dbn $qn $sql $body {*}$bindOpt]"
     uplevel [list ::db_foreach -dbn $dbn $qn $sql $body {*}$bindOpt]
   }