--- a/FlyByHelp.st	Mon Jun 24 12:20:57 2002 +0200
+++ b/FlyByHelp.st	Tue Jul 09 16:11:19 2002 +0200
@@ -244,7 +244,7 @@
                         currentHelpView := nil.
                     ]
                 ] valueUninterruptably
-            ] valueOnUnwindDo:[
+            ] ifCurtailed:[
                 closeProcess := nil.
             ].
         ] newProcess.
@@ -269,6 +269,6 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.4 2001-12-11 09:49:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.5 2002-07-09 14:11:19 stefan Exp $'
 ! !
 FlyByHelp initialize!