--- a/XWorkstation.st	Fri Oct 20 13:16:01 2000 +0200
+++ b/XWorkstation.st	Mon Oct 23 14:33:56 2000 +0200
@@ -5773,11 +5773,12 @@
     |arr|
 
     arr := Array new:13.
-    self decomposeEventBuffer:eventBuffer into:arr.
-    (self dispatchLastEvent:arr) ifFalse:[
-	self dispatchLastEvent
-    ]
-!
+    (self decomposeEventBuffer:eventBuffer into:arr) ifTrue:[
+        (self dispatchLastEvent:arr) ifFalse:[
+            "if not implemented in new dispatch, fall back to old dispatch"
+            self dispatchLastEvent
+        ].
+    ].!
 
 setEventMask:aMask in:aWindowId
     "tell X that we are only interested in events from aMask, which
@@ -11742,6 +11743,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.381 2000-10-20 11:16:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.382 2000-10-23 12:33:56 stefan Exp $'
 ! !
 XWorkstation initialize!