--- a/XWorkstation.st	Mon Nov 21 17:44:08 1994 +0100
+++ b/XWorkstation.st	Tue Nov 22 15:30:57 1994 +0100
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.26 1994-11-21 16:43:33 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.27 1994-11-22 14:30:37 claus Exp $
 '!
 
 !XWorkstation class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.26 1994-11-21 16:43:33 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.27 1994-11-22 14:30:37 claus Exp $
 "
 !
 
@@ -4735,7 +4735,9 @@
      handled."
 
     (self getEventFor:aViewIdOrNil withMask:eventMask) ifTrue:[
-	self dispatchLastEvent.
+	Object abortSignal catch:[
+	    self dispatchLastEvent.
+	]
     ].
 !