--- a/XWorkstation.st	Mon Dec 20 00:42:23 1993 +0100
+++ b/XWorkstation.st	Mon Dec 20 18:29:11 1993 +0100
@@ -36,7 +36,7 @@
 
 this class provides the interface to X11
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.7 1993-12-16 10:59:26 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.8 1993-12-20 17:29:11 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -4201,7 +4201,8 @@
      handled."
 
     self getEventFor:aViewIdOrNil withMask:eventMask.
-    self dispatchLastEvent
+    self dispatchLastEvent.
+    Processor yield
 !
 
 getEventFor:aViewIdOrNil withMask:eventMask