--- a/TestResult.st	Sun Aug 21 18:05:17 2011 +0200
+++ b/TestResult.st	Sun Aug 21 18:05:25 2011 +0200
@@ -381,11 +381,10 @@
     ] sunitOn:self exceptions do: [:ex |
         self rememberEndTime.
         self rememberException: ex.
+        debugged ifTrue:[ ex reject ].
         ex sunitAnnounce:aTestCase toResult:self. 
-        debugged ifTrue:[ ex reject ].
     ].
 
-    "Modified: / 06-08-2011 / 09:32:32 / cg"
     "Modified: / 16-08-2011 / 17:35:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-08-2011 / 17:48:19 / cg"
 ! !
@@ -424,11 +423,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.36 2011-08-21 15:49:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.37 2011-08-21 16:05:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.36 2011-08-21 15:49:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.37 2011-08-21 16:05:25 cg Exp $'
 !
 
 version_SVN