--- a/Monitor.st	Wed Dec 23 16:40:09 1998 +0100
+++ b/Monitor.st	Wed Dec 30 19:32:45 1998 +0100
@@ -154,11 +154,11 @@
         ].
         count := 1.
         owningProcess := thisProcess.
-    ] valueOnUnwindDo:[
+    ] valueNowOrOnUnwindDo:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
     ]
 
-    "Modified: / 11.12.1998 / 12:38:48 / cg"
+    "Modified: / 30.12.1998 / 19:32:24 / cg"
 !
 
 exit
@@ -234,5 +234,5 @@
 !Monitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.12 1998-12-11 12:44:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Monitor.st,v 1.13 1998-12-30 18:32:45 cg Exp $'
 ! !