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