--- a/SemaphoreMonitor.st	Fri Jan 31 18:28:32 1997 +0100
+++ b/SemaphoreMonitor.st	Fri Jan 31 22:30:37 1997 +0100
@@ -138,6 +138,9 @@
 
                 (aSemaphore respondsTo:#name) ifTrue:[
                     nm := aSemaphore name.
+                    nm isNil ifTrue:[
+                        nm := ''
+                    ]
                 ] ifFalse:[
                     nm := ''
                 ].
@@ -184,7 +187,7 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 25.1.1997 / 01:05:09 / cg"
+    "Modified: 31.1.1997 / 22:30:08 / cg"
 ! !
 
 !SemaphoreMonitor methodsFor:'menu'!
@@ -301,5 +304,5 @@
 !SemaphoreMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.6 1997-01-25 00:06:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.7 1997-01-31 21:30:37 cg Exp $'
 ! !