Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.124 -r1.125
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	7 Feb 2019 18:24:45 -0000	1.124
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	7 Feb 2019 22:31:38 -0000	1.125
@@ -1651,9 +1651,7 @@
         set errno [catch { uplevel 1 $code_block } error]
 
         #
-        # Handle or propagate the error. Can't use the usual
-        # "return -code $errno..." trick due to the db_with_handle
-        # wrapped around this loop, so propagate it explicitly.
+        # Handle or propagate the error.
         #
         switch -- $errno {
             0 {
@@ -1669,7 +1667,6 @@
             }
             3 {
                 # TCL_BREAK
-                ns_db flush $db
                 break
             }
             4 {