--- a/TestSkipped.st	Wed May 29 03:28:44 2019 +0000
+++ b/TestSkipped.st	Sat Jun 08 13:55:27 2019 +0200
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
+"{ NameSpace: Smalltalk }"
+
 TestFailure subclass:#TestSkipped
 	instanceVariableNames:''
 	classVariableNames:''
@@ -11,17 +15,19 @@
 !TestSkipped methodsFor:'handling'!
 
 sunitAnnounce: aTestCase toResult: aTestResult
-        aTestResult addSkipped: aTestCase.
+        aTestResult addSkipped: aTestCase detail:self.
         self sunitExitWith: false.
+
+    "Modified: / 08-06-2019 / 13:54:36 / Claus Gittinger"
 ! !
 
 !TestSkipped class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSkipped.st,v 1.1 2013-04-03 13:25:08 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSkipped.st,v 1.1 2013-04-03 13:25:08 cg Exp $'
+    ^ '$Header$'
 ! !