diff -r 8ccb64f2e2f7 -r f55a221af068 TestCase.st
--- a/TestCase.st	Fri Apr 19 17:47:46 2013 +0200
+++ b/TestCase.st	Fri Apr 19 18:00:25 2013 +0200
@@ -653,12 +653,11 @@
     | testCase outcome result|
 
     [
-        result := TestResult statePass.
+        result := TestResult stateError.
         [
             (testCase := self class selector: testSelector) runCase.
+            result := TestResult statePass.
         ] sunitOn:(TestResult failure) do: [:ex |
-            |con|
-
             ex creator == TestSkipped ifTrue:[
                 result := TestResult stateSkip.
             ] ifFalse:[
@@ -676,16 +675,16 @@
             ] ifFalse:[
                 "is there a portable way to open a debugger?"
                 self halt:(ex description)
-            ]
+            ].
         ].
 
+    ] sunitEnsure: [
         " if proceeded in the debugger, we arrive here; "
         " but still, this is not always a pass !! "
         outcome := TestCaseOutcome new.
         outcome testCase: testCase.
         outcome result: result.
         outcome remember.
-    ] sunitEnsure: [
         TestResource resetResources: self resources
     ].
 
@@ -908,11 +907,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.100 2013-04-19 16:00:25 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.99 2013-04-19 09:39:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.100 2013-04-19 16:00:25 stefan Exp $'
 !
 
 version_SVN