--- a/FileApplicationNoteBook.st	Thu Sep 30 14:35:45 2004 +0200
+++ b/FileApplicationNoteBook.st	Thu Sep 30 14:40:52 2004 +0200
@@ -1963,7 +1963,10 @@
 
 makeProcessFor:aBlock with:string
     process notNil ifTrue:[
-        process waitUntilTerminated.
+        (process waitUntilTerminatedWithTimeout:10) ifTrue:[
+            (Dialog confirm:'Terminate the current active archive operation ?') ifFalse:[^ self].
+            process terminate.
+        ].
         terminateByMe ifTrue:[
             terminateByMe := false.
             ^ self
@@ -5477,5 +5480,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.172 2004-09-21 10:31:42 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.173 2004-09-30 12:40:52 cg Exp $'
 ! !