--- a/TestResult.st	Sat Jun 08 13:55:27 2019 +0200
+++ b/TestResult.st	Sat Jun 08 13:55:43 2019 +0200
@@ -436,11 +436,21 @@
     "Modified: / 20-08-2011 / 12:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-addSkipped:testCase 
+addSkipped:testCase
+    <resource: #obsolete>
+ 
+    self addSkipped:testCase detail:nil
+
+    "Modified: / 08-06-2019 / 13:55:15 / Claus Gittinger"
+!
+
+addSkipped:testCase detail:detail 
 
     outcome result: (TestResult stateSkip).
     outcome remember.
     ^ self skippedOutcomes add: outcome
+
+    "Created: / 08-06-2019 / 13:49:15 / Claus Gittinger"
 !
 
 remove: aTestCase