--- a/DeviceWorkstation.st	Tue Feb 07 14:14:07 2017 +0100
+++ b/DeviceWorkstation.st	Tue Feb 07 14:16:43 2017 +0100
@@ -4891,19 +4891,21 @@
      the workstation)
     "
     myFd := self displayFileDescriptor.
-    [aBlock value] whileTrue:[
-	self eventPending ifFalse:[
-	    myFd isNil ifTrue:[
-		OperatingSystem millisecondDelay:50
-	    ] ifFalse:[
-		OperatingSystem selectOn:myFd withTimeOut:50.
-	    ].
-	    Processor evaluateTimeouts.
-	].
-	self eventPending ifTrue:[
-	    self dispatchEvent
-	].
+    aBlock whileTrue:[
+        self eventPending ifFalse:[
+            myFd isNil ifTrue:[
+                OperatingSystem millisecondDelay:50
+            ] ifFalse:[
+                OperatingSystem selectOn:myFd withTimeOut:50.
+            ].
+            Processor evaluateTimeouts.
+        ].
+        self eventPending ifTrue:[
+            self dispatchEvent
+        ].
     ]
+
+    "Modified (format): / 07-02-2017 / 12:50:58 / stefan"
 !
 
 dispatchPendingEvents