--- a/Semaphore.st	Sat Jun 28 16:21:41 1997 +0200
+++ b/Semaphore.st	Sat Jun 28 16:21:51 1997 +0200
@@ -155,17 +155,9 @@
     "return a string to display the receiver - include the
      count for your convenience"
 
-    |n|
+    ^ self class name , '(' , count printString , ' name: ' , (name ? 'unnamed') , ')'
 
-    name isNil ifTrue:[
-	n := 'unnamed'
-    ] ifFalse:[
-	n := name
-    ].
-
-    ^ self class name , '(' , count printString , ' name: ' , n , ')'
-
-    "Modified: 10.1.1997 / 21:43:04 / cg"
+    "Modified: 28.6.1997 / 16:21:09 / cg"
 !
 
 name
@@ -577,5 +569,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.46 1997-06-16 19:54:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.47 1997-06-28 14:21:51 cg Exp $'
 ! !