--- a/TestResult.st	Thu Nov 08 01:04:28 2012 +0100
+++ b/TestResult.st	Thu Nov 08 01:04:57 2012 +0100
@@ -319,7 +319,7 @@
      possibly change name to 'exception'"
 
 
-    outcome result: #error.
+    outcome result: (TestResult stateError).
     outcome remember.
     ^ self errorOutcomes add:outcome.
 
@@ -342,7 +342,7 @@
             ^ self
         ].
     ].
-    outcome result: #fail.
+    outcome result: (TestResult stateFail).
     outcome remember.
     ^ self failureOutcomes add: outcome
 
@@ -362,7 +362,7 @@
 
 addSkipped:testCase 
 
-    outcome result: #skipped.
+    outcome result: (TestResult stateSkip).
     outcome remember.
     ^ self skippedOutcomes add: outcome
 !
@@ -494,16 +494,16 @@
             self rememberException: ex.
             (AbortSignal accepts: ex signal) ifTrue:[ex reject].
             (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
-            debugged ifTrue:[ ex reject ].
-
             ex sunitAnnounce:aTestCase toResult:self.
+            self halt.    
         ].
     ] sunitOn: self exceptions do:[:ex|
         (AbortSignal accepts: ex signal) ifTrue:[ex reject].
         (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
 "/ the stuff below is rubbish - it clears out the info as collected above!!
 "/        self remove: aTestCase.
-"/        debugged ifTrue:[ ex reject ].
+self halt.
+        debugged ifTrue:[ ex reject ].
 "/        ex sunitAnnounce:aTestCase toResult:self.
     ]
 
@@ -552,11 +552,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.49 2012-11-07 01:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.50 2012-11-08 00:04:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.49 2012-11-07 01:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.50 2012-11-08 00:04:57 cg Exp $'
 !
 
 version_SVN