--- a/TestResult.st	Thu Feb 05 17:19:45 2015 +0100
+++ b/TestResult.st	Fri Feb 06 09:53:20 2015 +0100
@@ -159,7 +159,7 @@
 
 exceptions
 
-    "Returns a set of exceptions to be handled. Bu default,
+    "Returns a set of exceptions to be handled. By default,
      failure and generic error is handled. This method may
      be overriden by custom TestResult subclasses to add more.
      For example, a 'self halt' is not handled by default
@@ -500,8 +500,13 @@
             self rememberException: ex.
             (AbortSignal accepts: ex creator) ifTrue:[ex reject].
             (TerminateProcessRequest accepts: ex creator) ifTrue:[ex reject].
-            ex sunitAnnounce:aTestCase toResult:self.
-            self breakPoint:#cg.    
+            debugged ifFalse:[
+                ex sunitAnnounce:aTestCase toResult:self.
+                "/ not reached, because sunitAnnouce returns from ex!!
+            ].
+            self addFailure: aTestCase detail: ex.
+            self breakPoint:#cg.
+            ex reject.
         ].
     ] sunitOn: self exceptions do:[:ex|
         (AbortSignal accepts: ex creator) ifTrue:[ex reject].
@@ -556,14 +561,14 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.56 2015-01-30 21:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.56 2015-01-30 21:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: TestResult.st,v 1.56 2015-01-30 21:10:10 cg Exp $'
+    ^ '$Id: TestResult.st,v 1.57 2015-02-06 08:53:20 cg Exp $'
 ! !