--- a/SemaphoreMonitor.st	Mon Feb 20 16:42:19 2017 +0100
+++ b/SemaphoreMonitor.st	Mon Feb 20 16:47:36 2017 +0100
@@ -154,7 +154,7 @@
                 (aSemaphore respondsTo:#name) ifTrue:[
                     nm := aSemaphore name.
                     nm isNil ifTrue:[
-                        nm := ''
+                        nm := aSemaphore className.
                     ]
                 ] ifFalse:[
                     nm := ''
@@ -224,9 +224,8 @@
     ].
     self installDelayedUpdate.
 
-    "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Created: / 14.12.1999 / 20:52:29 / cg"
-    "Modified: / 14.12.1999 / 20:53:14 / cg"
+    "Created: / 14-12-1999 / 20:52:29 / cg"
+    "Modified: / 20-02-2017 / 16:46:30 / stefan"
 ! !
 
 !SemaphoreMonitor methodsFor:'menu'!