--- a/XWorkstat.st	Thu Mar 27 11:06:14 1997 +0100
+++ b/XWorkstat.st	Thu Mar 27 15:52:55 1997 +0100
@@ -4076,8 +4076,6 @@
      we only handle exposes until the graphicsExpose arrives.
      Other systems may not need such a kludge"
 
-    |dispatch|
-
     "interested in exposes only ?"
     dispatchingExpose notNil ifTrue:[
         [self exposeEventPendingFor:dispatchingExpose withSync:false] whileTrue:[
@@ -4086,14 +4084,13 @@
         ^ self
     ].
 
-    "no, general dispatch"
-    dispatch := [self dispatchLastEvent].
-
     [self eventPendingWithSync:false] whileTrue:[
         (self getEventFor:nil withMask:nil) ifTrue:[
             AbortSignal handle:[:ex |
                 ex return
-            ] do:dispatch
+            ] do:[
+		self dispatchLastEvent
+	    ]
         ].
     ]
 
@@ -8604,6 +8601,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.218 1997-03-26 18:07:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.219 1997-03-27 14:52:55 cg Exp $'
 ! !
 XWorkstation initialize!

--- a/XWorkstation.st	Thu Mar 27 11:06:14 1997 +0100
+++ b/XWorkstation.st	Thu Mar 27 15:52:55 1997 +0100
@@ -4076,8 +4076,6 @@
      we only handle exposes until the graphicsExpose arrives.
      Other systems may not need such a kludge"
 
-    |dispatch|
-
     "interested in exposes only ?"
     dispatchingExpose notNil ifTrue:[
         [self exposeEventPendingFor:dispatchingExpose withSync:false] whileTrue:[
@@ -4086,14 +4084,13 @@
         ^ self
     ].
 
-    "no, general dispatch"
-    dispatch := [self dispatchLastEvent].
-
     [self eventPendingWithSync:false] whileTrue:[
         (self getEventFor:nil withMask:nil) ifTrue:[
             AbortSignal handle:[:ex |
                 ex return
-            ] do:dispatch
+            ] do:[
+		self dispatchLastEvent
+	    ]
         ].
     ]
 
@@ -8604,6 +8601,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.218 1997-03-26 18:07:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.219 1997-03-27 14:52:55 cg Exp $'
 ! !
 XWorkstation initialize!