--- a/Monitor.st	Thu Jan 16 14:45:49 1997 +0100
+++ b/Monitor.st	Fri Jan 24 23:19:42 1997 +0100
@@ -182,7 +182,7 @@
 !Monitor methodsFor:'initialization'!
 
 initialize
-    sema := Semaphore new.
+    sema := Semaphore new name:'monitorSema'.
     count := 0.
 
     "Created: 3.5.1996 / 17:24:59 / cg"
@@ -213,5 +213,5 @@
 !Monitor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.5 1996-07-06 21:54:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.6 1997-01-24 22:19:39 cg Exp $'
 ! !