--- a/Tools__TestRunnerMini.st	Wed Apr 25 12:51:25 2018 +0200
+++ b/Tools__TestRunnerMini.st	Thu Apr 26 06:54:57 2018 +0200
@@ -539,27 +539,38 @@
         self windowGroup repairDamage.
 
         suite tests do:[:test |
+            |skipped|
+
+            skipped := false.
             [
-                test debug. 
+                [
+                    test debug. 
+                ] on:TestResult skipped do:[
+                    skipped := true.
+                ].
             ] ifCurtailed:[
                 result failureOutcomes add: test.
                 resultHolder value:suiteAndResult; changed.    
             ].
-
-            (test class testSelectorPassed:test selector) ifTrue:[
-                "/ result := TestResult defaultResultClass new.
-                "/ result passed add: test.
-                "/ suiteAndResult := SuiteAndResult suite: suite result: result.
-                result passedOutcomes add: test.
+            skipped ifTrue:[
+                result skippedOutcomes add: test.
                 resultHolder value:suiteAndResult; changed.    
             ] ifFalse:[
-                (test class testSelectorFailed:test selector) ifTrue:[
+                (test class testSelectorPassed:test selector) ifTrue:[
                     "/ result := TestResult defaultResultClass new.
-                    "/ result failures add: test.
-                    "/ suiteAndResult := SuiteAndResult suite: suite result: result.       
-                    result failureOutcomes add: test.
+                    "/ result passed add: test.
+                    "/ suiteAndResult := SuiteAndResult suite: suite result: result.
+                    result passedOutcomes add: test.
                     resultHolder value:suiteAndResult; changed.    
-                ]
+                ] ifFalse:[
+                    (test class testSelectorFailed:test selector) ifTrue:[
+                        "/ result := TestResult defaultResultClass new.
+                        "/ result failures add: test.
+                        "/ suiteAndResult := SuiteAndResult suite: suite result: result.       
+                        result failureOutcomes add: test.
+                        resultHolder value:suiteAndResult; changed.    
+                    ]
+                ].
             ].
             self windowGroup repairDamage
         ].