--- a/FileBrowser.st	Sun Feb 14 18:34:52 1999 +0100
+++ b/FileBrowser.st	Tue Feb 16 16:12:40 1999 +0100
@@ -2733,7 +2733,7 @@
 openTool:aToolClass
     "open a tool on the selected file(s)"
 
-    self openTool:aToolClass ignoreDirectories:true
+    ^ self openTool:aToolClass ignoreDirectories:true
 
     "Modified: / 7.9.1998 / 19:32:10 / cg"
 !
@@ -2741,7 +2741,7 @@
 openTool:aToolClass ignoreDirectories:ignoreDirs
     "open a tool on the selected file(s)"
 
-    |numItems path|
+    |numItems path tool|
 
     aToolClass isNil ifTrue:[
         ^ self warn:'Sorry, that tool seems to be not available'.
@@ -2757,9 +2757,10 @@
         path := currentDirectory filenameFor:fileName.
         (ignoreDirs not
         or:[path isDirectory not]) ifTrue:[
-            aToolClass openOn:(path pathName).
+            tool := aToolClass openOn:(path pathName).
         ]
     ].
+    ^ tool
 
     "Modified: / 18.9.1997 / 17:06:18 / stefan"
     "Created: / 7.9.1998 / 19:31:49 / cg"
@@ -2767,7 +2768,10 @@
 !
 
 openZipTool
-    self openTool:ZipTool
+    |zipTool|
+
+    zipTool := self openTool:ZipTool.
+    zipTool initialExtractDirectory:currentDirectory
 
     "Created: / 26.8.1998 / 16:20:55 / cg"
 !
@@ -6265,5 +6269,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.289 1999-02-11 13:24:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.290 1999-02-16 15:12:40 cg Exp $'
 ! !