--- a/Monitor.st	Tue Jun 25 21:49:50 1996 +0200
+++ b/Monitor.st	Thu Jun 27 17:54:25 1996 +0200
@@ -136,7 +136,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     [
         [owningProcess notNil] whileTrue:[
-            thisProcess state:#monitorWait.
+            thisProcess state:#monWait.
             sema wait.
         ].
         count := 1.
@@ -145,7 +145,7 @@
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
     ]
 
-    "Modified: 25.6.1996 / 15:20:11 / cg"
+    "Modified: 27.6.1996 / 16:46:40 / cg"
 !
 
 exit
@@ -208,5 +208,5 @@
 !Monitor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.3 1996-06-25 19:49:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.4 1996-06-27 15:54:25 cg Exp $'
 ! !