--- a/TestCase.st	Wed Jul 09 22:13:52 2014 +0100
+++ b/TestCase.st	Wed Jul 09 23:00:04 2014 +0100
@@ -673,54 +673,12 @@
 !TestCase methodsFor:'running'!
 
 debug
-
-    | testCase outcome result wasProceeded|
-
-    [
-        result := TestResult stateError.
-        wasProceeded := false.
-
-        [
-            (testCase := self class selector: testSelector) runCase.
-            wasProceeded ifFalse:[
-                result := TestResult statePass.
-            ]
-        ] sunitOn:(TestResult failure) do: [:ex |
-            ex creator == TestSkipped ifTrue:[
-                result := TestResult stateSkip.
-            ] ifFalse:[
-                result := TestResult stateFail.
-            ].
-            "I want a debugger to open here..."
-            "the only really portable dialect query..."
-            ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
-                "/ debug
-                Debugger 
-                    enter:ex raiseContext
-                    withMessage:(ex description)
-                    mayProceed:true.
-                wasProceeded := true.
-                ex proceed. 
-            ] ifFalse:[
-                "is there a portable way to open a debugger?"
-                self halt:(ex description).
-                wasProceeded := true.
-            ].
-        ].
-
-    ] 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.
-        TestResource resetResources: self resources
-    ].
+    [(self class selector: testSelector) runCase]
+        sunitEnsure: [TestResource resetResources: self resources].
 
     "Modified: / 07-07-2011 / 11:10:50 / jv"
     "Modified: / 07-07-2011 / 11:34:08 / Jan Vrany <jan.vrant@fit.cvut,cz>"
-    "Modified: / 20-08-2011 / 14:15:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-07-2014 / 22:52:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 debugAsFailure