--- a/SemaphoreMonitor.st	Sat Feb 08 14:01:02 1997 +0100
+++ b/SemaphoreMonitor.st	Sat Feb 08 14:03:39 1997 +0100
@@ -125,11 +125,10 @@
                 waiters := aSemaphore waitingProcesses copy.
 
                 str := '' writeStream.
-                str writeLimit:80.
                 waiters notNil ifTrue:[
                     waiters do:[:aProcess |
                         str nextPut:$[.
-                        str nextPutAll:aProcess name.
+                        str nextPutAll:(aProcess name contractTo:40).
                         str nextPut:$].
                         str space.
                     ].
@@ -187,7 +186,7 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 31.1.1997 / 22:30:08 / cg"
+    "Modified: 8.2.1997 / 12:26:20 / cg"
 ! !
 
 !SemaphoreMonitor methodsFor:'menu'!
@@ -305,5 +304,5 @@
 !SemaphoreMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.8 1997-01-31 21:33:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.9 1997-02-08 13:03:39 cg Exp $'
 ! !