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.18 -r1.1.2.19
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	28 Oct 2020 15:39:19 -0000	1.1.2.18
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	8 Dec 2020 14:31:59 -0000	1.1.2.19
@@ -2542,8 +2542,14 @@
                         set db_state(db_abort_p,$dbh) 0
                         ns_db dml $dbh "abort transaction"
                         ns_cache_transaction_rollback
-                        # We still have the transaction generated error.  We don't want to throw it, so we log it.
-                        ns_log Error "Aborting transaction due to error:\n$errmsg"
+                        #
+                        # We still have the transaction generated
+                        # error.  We don't want to throw it, so we log
+                        # it, unless it is "rollback tests"
+                        #
+                        if {$errmsg ne "rollback tests"} {
+                            ns_log Error "Aborting transaction due to error:\n$errmsg"
+                        }
                     } else {
                         # Propagate the error up to the next level.
                         error $errmsg $::errorInfo $::errorCode