--- a/TestResult.st	Thu Mar 31 23:50:30 2016 +0200
+++ b/TestResult.st	Thu Mar 31 23:54:14 2016 +0200
@@ -466,8 +466,14 @@
      a setUp/tearDown methods. The possible error/failure is handled
      in TestResult>>runCase:. This method is meant to be overriden by
      custom TestResult subclasses."
-    
-    aTestCase runCase.
+
+    [    
+        aTestCase runCase.
+    ] sunitOn:self class skipped do: [:ex |
+        ex sunitAnnounce: aTestCase toResult: self.
+        ex return.
+    ].    
+
 
     "Modified: / 02-08-2011 / 18:10:09 / cg"
     "Created: / 03-08-2011 / 14:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"