Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl,v
diff -u -r1.1.2.19 -r1.1.2.20
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	8 Dec 2020 14:31:59 -0000	1.1.2.19
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	8 Dec 2020 14:33:45 -0000	1.1.2.20
@@ -2532,7 +2532,10 @@
                     ns_db dml $dbh "abort transaction"
                     ns_cache_transaction_rollback
                 }
-                # We throw this error because it was thrown from the error handling code that the programmer must fix.
+                #
+                # We throw this error because it was thrown from the
+                # error handling code that the programmer must fix.
+                #
                 error $on_errmsg $::errorInfo $::errorCode
             } else {
                 # Good, no error thrown by the on_error block.
@@ -2555,8 +2558,12 @@
                         error $errmsg $::errorInfo $::errorCode
                     }
                 } else {
-                    # The on_error block has resolved the transaction error.  If we're at the top, commit and exit.
-                    # Otherwise, we continue on through the lower transaction levels.
+                    #
+                    # The on_error block has resolved the transaction
+                    # error.  If we're at the top, commit and exit.
+                    # Otherwise, we continue on through the lower
+                    # transaction levels.
+                    #
                     if { $level == 1} {
                         ns_db dml $dbh "end transaction"
                         ns_cache_transaction_commit