--- a/Archiver.st Tue Nov 27 16:31:23 2018 +0100
+++ b/Archiver.st Wed Nov 28 15:31:45 2018 +0100
@@ -221,12 +221,23 @@
!
newFor:aFilename
- |fn archiverClass|
+ |fn mimeType archiverClass|
fn := aFilename asFilename.
- archiverClass := self classForMimeType:fn mimeTypeFromName fileName:fn.
+ (mimeType := fn mimeTypeFromName) isNil ifTrue:[
+ (mimeType := fn mimeTypeOfContents) isNil ifTrue:[
+ self breakPoint:#cg.
+ ].
+ ].
+ mimeType = 'application/x-zip-compressed' ifTrue:[
+ self breakPoint:#cg.
+ ].
+
+ archiverClass := self classForMimeType:mimeType fileName:fn.
archiverClass isNil ifTrue:[^ nil].
^ archiverClass with:fn
+
+ "Modified: / 28-11-2018 / 15:31:31 / Claus Gittinger"
!
with:aFilename