--- a/FileBrowser.st	Tue May 25 15:52:41 1999 +0200
+++ b/FileBrowser.st	Tue May 25 16:36:27 1999 +0200
@@ -2880,36 +2880,39 @@
     |numItems path tool|
 
     aToolClass isNil ifTrue:[
-	^ self warn:'Sorry, that tool seems to be not available'.
+        self warn:'Sorry, that tool seems to be not available'.
+        ^ nil.
     ].
 
     (numItems := fileListView selection size) > 2 ifTrue:[
-	(self 
-	    confirm:(resources string:'open for each of the %1 items ?' 
-				 with:numItems)) ifFalse:[^ self].
+        (self 
+            confirm:(resources string:'open for each of the %1 items ?' 
+                                 with:numItems)) ifFalse:[^ self].
     ].
 
     self selectedFilesDo:[:fileName |
-	path := currentDirectory filenameFor:fileName.
-	(ignoreDirs not
-	or:[path isDirectory not]) ifTrue:[
-	    tool := aToolClass openOn:(path pathName).
-	]
+        path := currentDirectory filenameFor:fileName.
+        (ignoreDirs not
+        or:[path isDirectory not]) ifTrue:[
+            tool := aToolClass openOn:(path pathName).
+        ]
     ].
     ^ tool
 
     "Modified: / 18.9.1997 / 17:06:18 / stefan"
     "Created: / 7.9.1998 / 19:31:49 / cg"
-    "Modified: / 10.9.1998 / 13:58:23 / cg"
+    "Modified: / 25.5.1999 / 16:30:35 / cg"
 !
 
 openZipTool
     |zipTool|
 
-    zipTool := self openTool:ZipTool.
-    zipTool initialExtractDirectory:currentDirectory
+    (zipTool := self openTool:ZipTool) notNil ifTrue:[
+        zipTool initialExtractDirectory:currentDirectory
+    ].
 
     "Created: / 26.8.1998 / 16:20:55 / cg"
+    "Modified: / 25.5.1999 / 16:30:54 / cg"
 !
 
 showOrHideTabView
@@ -6634,5 +6637,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.323 1999-05-21 10:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.324 1999-05-25 14:36:27 cg Exp $'
 ! !