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.13 -r1.14
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 Sep 2003 12:14:09 -0000	1.13
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	12 Sep 2003 12:03:34 -0000	1.14
@@ -769,6 +769,7 @@
 } {
   if { $rollback_p } {
     set test_code "
+            set errmsg {}
             db_transaction {
                aa_start_rollback_block
  
@@ -778,15 +779,14 @@
                 error \"rollback tests\"
             } on_error {
                 aa_end_rollback_block
-
-                if { !\[string equal \$errmsg \"rollback tests\"\] } {
-                    global errorInfo
-            
-                    error \"\$errmsg \n\n \$errorInfo\"
-                }
             }
-                    
+
             aa_execute_rollback_tests
+
+            if { !\[empty_string_p \$errmsg\] && !\[string equal \$errmsg \"rollback tests\"\] } {
+                global errorInfo
+                error \"\$errmsg \n\n \$errorInfo\"
+            }
         "
   }