--- a/XWorkstation.st	Tue Dec 10 16:59:34 2002 +0100
+++ b/XWorkstation.st	Fri Dec 13 19:40:10 2002 +0100
@@ -5272,9 +5272,9 @@
     Processor addPreWaitAction:flushBlock.
 
     [
-	super dispatchLoop
-    ] ifCurtailed:[
-	Processor removePreWaitAction:flushBlock.
+        super dispatchLoop
+    ] ensure:[
+        Processor removePreWaitAction:flushBlock.
     ].
 !
 
@@ -11789,7 +11789,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.414 2002-10-31 20:20:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.415 2002-12-13 18:40:10 stefan Exp $'
 ! !
 
 XWorkstation initialize!