--- a/AbstractFileBrowser.st	Fri Jun 13 20:35:45 2003 +0200
+++ b/AbstractFileBrowser.st	Fri Jun 13 20:36:41 2003 +0200
@@ -3470,7 +3470,7 @@
             defaultAnswer := singleSelectedFile asFilename withoutSuffix baseName.
 
             mime := MIMETypes mimeTypeForFilename:defaultAnswer.
-            mime isArchive ifTrue:[
+            (mime notNil and:[mime isArchive]) ifTrue:[
                 defaultAnswer := defaultAnswer asFilename withoutSuffix baseName
             ].
         ].
@@ -6323,5 +6323,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.158 2003-06-13 11:23:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.159 2003-06-13 18:36:41 cg Exp $'
 ! !