--- a/TestResult.st	Thu Mar 31 23:54:14 2016 +0200
+++ b/TestResult.st	Fri Apr 01 00:05:58 2016 +0200
@@ -510,11 +510,14 @@
                 ex sunitAnnounce:aTestCase toResult:self.
                 "/ not reached, because sunitAnnouce returns from ex!!
             ].
-            self addFailure: aTestCase detail: ex.
+            (TestSkipped accepts: ex creator) ifFalse:[
+                self addFailure: aTestCase detail: ex.
+            ].    
             self breakPoint:#cg.
             ex reject.
         ].
     ] sunitOn: self exceptions do:[:ex|
+        (TestSkipped accepts: ex creator) ifTrue:[ex return].
         (AbortSignal accepts: ex creator) ifTrue:[ex reject].
         (TerminateProcessRequest accepts: ex creator) ifTrue:[ex reject].
         "/ the stuff below is rubbish - it clears out the info as collected above!!