--- a/Process.st	Sun Mar 19 18:24:14 2017 +0100
+++ b/Process.st	Thu Mar 23 09:01:27 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -1022,14 +1020,18 @@
 
     |action wasBlocked|
 
-    [interruptActions size ~~ 0] whileTrue:[
-	wasBlocked := OperatingSystem blockInterrupts.
-	action := interruptActions removeFirst.
-	interruptActions size == 0 ifTrue:[ interruptActions := nil ].
-	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-
-	action valueWithOptionalArgument:aContext
+    [interruptActions notEmptyOrNil] whileTrue:[
+        wasBlocked := OperatingSystem blockInterrupts.
+        action := interruptActions removeFirst.
+        interruptActions isEmpty ifTrue:[
+            interruptActions := nil
+        ].
+        wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+
+        action valueWithOptionalArgument:aContext
     ].
+
+    "Modified: / 22-03-2017 / 15:28:18 / stefan"
 !
 
 forceInterruptOnReturnOf:aContext