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.10 -r1.11
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	2 Sep 2003 10:05:55 -0000	1.10
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	2 Sep 2003 13:03:07 -0000	1.11
@@ -696,6 +696,11 @@
   @author Peter Harper
   @creation-date 24 July 2001
 } {
+  if { [aa_in_rollback_block_p] } {
+      aa_add_rollback_test [list aa_log_result $test_result $test_notes]
+      return
+  }
+
   global aa_testcase_id
   global aa_testcase_test_id
   global aa_testcase_fails
@@ -864,10 +869,6 @@
 } {
     global aa_rollback_test_statements
 
-    if { ![info exists aa_rollback_test_statements] } {
-        set aa_rollback_test_statements [list]
-    }
-
     lappend aa_rollback_test_statements $args
 }