--- a/Process.st	Fri Apr 12 18:55:03 1996 +0200
+++ b/Process.st	Fri Apr 12 19:00:43 1996 +0200
@@ -462,13 +462,15 @@
 
     |action|
 
-    [interruptActions notNil and:[interruptActions notEmpty]] whileTrue:[
-        action := interruptActions removeFirst.
+    [interruptActions size > 0] whileTrue:[
+        self uninterruptablyDo:[
+            action := interruptActions removeFirst
+        ].
         action value
     ].
     interruptActions := nil
 
-    "Modified: 8.3.1996 / 13:02:08 / cg"
+    "Modified: 12.4.1996 / 12:43:31 / cg"
 !
 
 interruptWith:aBlock
@@ -962,6 +964,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.47 1996-04-02 22:05:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.48 1996-04-12 17:00:43 cg Exp $'
 ! !
 Process initialize!