--- a/Monitor.st	Sat Jun 22 18:52:25 1996 +0200
+++ b/Monitor.st	Tue Jun 25 21:49:50 1996 +0200
@@ -18,7 +18,7 @@
 	category:'Kernel-Processes'
 !
 
-!Monitor class methodsFor:'documentation'!
+!Monitor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -101,7 +101,7 @@
 "
 ! !
 
-!Monitor class methodsFor:'instance creation'!
+!Monitor  class methodsFor:'instance creation'!
 
 new
     ^ self basicNew initialize
@@ -136,6 +136,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     [
         [owningProcess notNil] whileTrue:[
+            thisProcess state:#monitorWait.
             sema wait.
         ].
         count := 1.
@@ -144,7 +145,7 @@
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
     ]
 
-    "Modified: 3.5.1996 / 17:27:50 / cg"
+    "Modified: 25.6.1996 / 15:20:11 / cg"
 !
 
 exit
@@ -204,8 +205,8 @@
     "Created: 3.5.1996 / 18:08:38 / cg"
 ! !
 
-!Monitor class methodsFor:'documentation'!
+!Monitor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.2 1996-05-03 16:08:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.3 1996-06-25 19:49:50 cg Exp $'
 ! !