--- a/FileBrowser.st	Tue Feb 06 10:31:14 2018 +0100
+++ b/FileBrowser.st	Wed Feb 07 18:36:25 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -1767,7 +1769,7 @@
 !
 
 hasZipFileSelected
-    |sel fileName suff|
+    |sel fileName suff mime|
 
     sel := fileListView selectionValue.
     sel size == 1 ifFalse:[^ false].
@@ -1779,7 +1781,9 @@
     suff := fileName suffix asLowercase.
     (suff = 'zip' or:[suff = 'jar']) ifTrue:[^ true].
 
-    ^ fileName mimeTypeOfContents = 'application/x-zip-compressed'
+    mime := fileName mimeTypeOfContents.
+    "/ prepare for change (iana has obsoleted the x- types)
+    ^ (mime = 'application/x-zip-compressed') or:[mime = 'application/zip']
 
     "Modified: / 14-02-2011 / 17:21:37 / cg"
 !