Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.43 -r1.79.2.44
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	28 Feb 2021 16:52:39 -0000	1.79.2.43
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	3 Mar 2021 10:30:50 -0000	1.79.2.44
@@ -1027,7 +1027,11 @@
                 aa_end_rollback_block
                 error "rollback tests"
             } on_error {
+                #
+                # Exectue the rollback block and trigger error.
+                #
                 aa_end_rollback_block
+                set errmsg [lindex [split $::errorInfo \n] 0]
             }
 
             aa_execute_rollback_tests