--- a/TestResult.st	Mon Feb 20 11:28:55 2006 +0100
+++ b/TestResult.st	Mon Jul 17 13:28:11 2006 +0200
@@ -170,12 +170,18 @@
                         ex reject 
                     ].
                 ].
+                (HaltInterrupt accepts:ex signal) ifTrue:[ 
+                    ex reject 
+                ].
                 self errors add:aTestCase.
                 ex returnWith:false
             ].
+
     testCasePassed ifTrue:[
         self passed add:aTestCase
     ]
+
+    "Modified: / 17-07-2006 / 12:13:51 / cg"
 ! !
 
 !TestResult methodsFor:'testing'!
@@ -218,5 +224,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.15 2006-01-23 21:59:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.16 2006-07-17 11:28:11 cg Exp $'
 ! !