--- a/ExternalTopView.st	Fri Apr 27 14:52:11 2012 +0200
+++ b/ExternalTopView.st	Mon May 07 14:11:50 2012 +0200
@@ -120,7 +120,7 @@
             [ 
                 [
                     self checkWindowStillAliveLoop 
-                ] valueNowOrOnUnwindDo:[
+                ] ensure:[
                     windowClosedPollProcess := nil.
                 ]
             ] fork.
@@ -317,5 +317,5 @@
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.17 2009-02-11 11:43:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.18 2012-05-07 12:11:50 stefan Exp $'
 ! !