--- a/JavaVM.st	Thu Jul 15 00:02:06 1999 +0000
+++ b/JavaVM.st	Thu Jul 15 00:04:36 1999 +0000
@@ -35,7 +35,7 @@
 		EnteredMonitorProcess LeftMonitorObject JavaEventThread
 		JavaScreenUpdaterThread SystemProperties
 		NullPointerExceptionDebug DivisionByZeroExceptionDebug
-		StdinReplacementFileQuerySignal'
+		IOExceptionDebug StdinReplacementFileQuerySignal'
 	poolDictionaries:''
 	category:'Java-Support'
 !
@@ -2690,6 +2690,9 @@
 !
 
 throwIOExceptionWithMessage:message
+    IOExceptionDebug == true ifTrue:[
+        self halt:'IO Exception'.
+    ].
     ^ self 
         throwExceptionClassName:'java.io.IOException' 
         withMessage:message
@@ -10814,7 +10817,7 @@
         ].
         EnteredMonitorObject := EnteredMonitorProcess := LeftMonitorObject := nil.
     ].
-    wasBlocked ifTrue:[ OperatingSystem unblockInterrupts].
+    wasBlocked ifFalse:[ OperatingSystem unblockInterrupts].
 
     "Created: / 8.1.1999 / 13:59:17 / cg"
     "Modified: / 9.1.1999 / 00:39:55 / cg"
@@ -10855,7 +10858,7 @@
         EnteredMonitorsPerProcess removeKey:thisProcess.
     ].
 
-    wasBlocked ifTrue:[ OperatingSystem unblockInterrupts].
+    wasBlocked ifFalse:[ OperatingSystem unblockInterrupts].
 
     pState notNil ifTrue:[thisProcess state:pState].
     sema isNil ifTrue:[
@@ -10892,7 +10895,7 @@
             mon enter.
         ].
         EnteredMonitorsPerProcess at:thisProcess put:enteredMonitors.
-        wasBlocked ifTrue:[ OperatingSystem unblockInterrupts].
+        wasBlocked ifFalse:[ OperatingSystem unblockInterrupts].
     ].
 
     "Created: / 30.12.1998 / 19:19:35 / cg"
@@ -11962,6 +11965,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.152 1999/07/14 20:34:47 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.153 1999/07/15 00:04:36 cg Exp $'
 ! !
 JavaVM initialize!