--- a/TestResult.st	Tue Nov 08 17:49:17 2005 +0100
+++ b/TestResult.st	Mon Jan 23 22:59:02 2006 +0100
@@ -164,7 +164,12 @@
                     self failures add:aTestCase.
                     ex handleFailureWith:false
                 ]
-            ] on:self class error do:[:ex | 
+            ] on:self class error do:[:ex |
+                (AbortAllOperationRequest accepts:ex signal) ifTrue:[ 
+                    (AbortOperationRequest accepts:ex signal) ifFalse:[ 
+                        ex reject 
+                    ].
+                ].
                 self errors add:aTestCase.
                 ex returnWith:false
             ].
@@ -213,5 +218,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.14 2003-09-26 15:55:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.15 2006-01-23 21:59:02 cg Exp $'
 ! !