--- a/TestCase.st	Wed Apr 03 15:25:26 2013 +0200
+++ b/TestCase.st	Wed Apr 03 15:25:45 2013 +0200
@@ -655,15 +655,22 @@
     [
         result := TestResult statePass.
         [
-            [
-                (testCase := self class selector: testSelector) runCase.
-            ] sunitOn:(TestResult failure) do: [:ex |
+            (testCase := self class selector: testSelector) runCase.
+        ] sunitOn:(TestResult failure) do: [:ex |
+            |con|
+
+            ex signal == TestSkipped ifTrue:[
+                result := TestResult stateSkip.
+            ] ifFalse:[
                 result := TestResult stateFail.
-                ex reject "/ debug
             ].
-        ] sunitOn:(TestResult failure) do: [:ex |
-            result := TestResult stateError.
-            ex reject "/ debug
+            "/ debug
+            con := thisContext findNextContextWithSelector:testSelector or:nil or:nil.
+            Debugger 
+                enter:con
+                withMessage:(ex description)
+                mayProceed:true.
+            ex proceed. 
         ].
 
         "/ if proceeded in the debugger, we arrive here;
@@ -736,6 +743,14 @@
 
 !
 
+logSkipped: aString
+        self isLogging ifTrue: [
+                self failureLog
+                        cr;
+                        nextPutAll: aString;
+                        flush]
+!
+
 openDebuggerOnFailingTestMethod
         "SUnit has halted one step in front of the failing test method. Step over the 'self halt' and
          send into 'self perform: testSelector' to see the failure from the beginning"
@@ -883,15 +898,16 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.92 2012-12-15 16:20:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.93 2013-04-03 13:25:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.92 2012-12-15 16:20:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.93 2013-04-03 13:25:45 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: TestCase.st 218 2011-06-13 15:45:06Z vranyj1 §'
 ! !
 
+
 TestCase initialize!