--- a/reports/Builder__TestReport.st	Sun Nov 25 14:35:26 2012 +0100
+++ b/reports/Builder__TestReport.st	Wed Nov 28 19:13:20 2012 +0100
@@ -231,11 +231,9 @@
 !
 
 runCase:aTestCase debugged: debugged fork:doFork timeout: tout
-    | method nm sel |
+    | nm sel |
 
-    "/Skip testcases marked as <ignore> or <skip> . Report them as skipped
-    method := aTestCase class lookupMethodFor: aTestCase selector.
-    method annotationsAt:#ignore orAt: #skip do:[:annotation|
+    aTestCase shouldSkip ifTrue:[
         self addSkipped: aTestCase.
         ^self.
     ].
@@ -273,7 +271,7 @@
     self error:'Unssuported platform'
 
     "Created: / 12-01-2012 / 17:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-11-2012 / 15:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-11-2012 / 18:04:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'running-private'!