--- a/Semaphore.st	Fri Jun 28 09:08:30 2019 +0200
+++ b/Semaphore.st	Fri Jun 28 09:12:17 2019 +0200
@@ -398,7 +398,7 @@
         ^ super displayOn:aGCOrStream
     ].
     aGCOrStream
-        nextPutAll:self class name;
+        nextPutAll:self className;
         nextPut:$(.
     count printOn:aGCOrStream.
     aGCOrStream nextPutAll:' name: '.
@@ -407,6 +407,7 @@
 
     "Modified: / 28-06-1997 / 16:21:09 / cg"
     "Modified (comment): / 22-02-2017 / 16:47:54 / cg"
+    "Modified: / 28-06-2019 / 09:12:00 / Claus Gittinger"
 !
 
 name