--- a/Semaphore.st	Wed Feb 22 18:55:19 2017 +0100
+++ b/Semaphore.st	Wed Feb 22 18:55:23 2017 +0100
@@ -374,20 +374,20 @@
      count for your convenience"
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    "/ old ST80 means: draw-yourself on a GC.
     (aGCOrStream isStream) ifFalse:[
-	^ super displayOn:aGCOrStream
+        ^ super displayOn:aGCOrStream
     ].
     aGCOrStream
-	nextPutAll:self class name;
-	nextPut:$(.
+        nextPutAll:self class name;
+        nextPut:$(.
     count printOn:aGCOrStream.
     aGCOrStream nextPutAll:' name: '.
     (name ? 'unnamed') printOn:aGCOrStream.
     aGCOrStream nextPut:$).
 
-
-    "Modified: 28.6.1997 / 16:21:09 / cg"
+    "Modified: / 28-06-1997 / 16:21:09 / cg"
+    "Modified (comment): / 22-02-2017 / 16:47:54 / cg"
 !
 
 name