--- a/Process.st	Mon Feb 02 17:16:45 2004 +0100
+++ b/Process.st	Mon Feb 02 17:19:36 2004 +0100
@@ -793,10 +793,9 @@
     interruptActions isNil ifTrue:[
         interruptActions := OrderedCollection with:aBlock.
     ] ifFalse:[
-        interruptActions addLast:aBlock.
+        interruptActions addFirst:aBlock.
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-
 !
 
 blockInterrupts
@@ -1649,7 +1648,7 @@
 
     suspendSemaphore notNil ifTrue:[suspendSemaphore signalForAll].
     suspendActions notNil ifTrue:[
-	suspendActions do:[:action | action value]
+        suspendActions do:[:action | action value]
     ].
 
     "
@@ -1661,7 +1660,7 @@
     (state == #active 
     or:[state == #run 
     or:[aStateSymbol == #stopped]]) ifTrue:[
-	state := aStateSymbol.
+        state := aStateSymbol.
     ].
     Processor suspend:self
 !
@@ -1974,7 +1973,7 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.141 2004-01-28 20:07:12 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.142 2004-02-02 16:19:36 ca Exp $'
 ! !
 
 Process initialize!