--- a/Process.st	Fri Aug 08 11:03:44 1997 +0200
+++ b/Process.st	Sat Aug 09 17:26:13 1997 +0200
@@ -700,11 +700,15 @@
         self uninterruptablyDo:[
             action := interruptActions removeFirst
         ].
-        action value
+        action numArgs == 1 ifTrue:[
+            action value:thisContext sender
+        ] ifFalse:[
+            action value
+        ]
     ].
     interruptActions := nil
 
-    "Modified: 12.4.1996 / 12:43:31 / cg"
+    "Modified: 9.8.1997 / 17:20:38 / cg"
 !
 
 interruptWith:aBlock
@@ -1438,6 +1442,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.83 1997-08-07 10:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.84 1997-08-09 15:26:13 cg Exp $'
 ! !
 Process initialize!