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.16 -r1.17
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	16 Sep 2003 09:30:52 -0000	1.16
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	24 Sep 2003 15:16:07 -0000	1.17
@@ -401,7 +401,7 @@
     foreach testcase_body \[list $args\] {
       aa_log \"Running testcase body \$body_count\"
       set catch_val \[catch \"eval \[list \$testcase_body\]\" msg\]
-      if {\$catch_val} {
+      if {\$catch_val != 0 && \$catch_val != 2} {
         global errorInfo
           aa_log_result \"fail\" \"$testcase_id (body \$body_count): Error during execution: \${msg}, stack trace: \n\$errorInfo\"
       }