--- a/Archiver.st	Mon Apr 07 17:44:36 2014 +0200
+++ b/Archiver.st	Wed Apr 09 00:31:34 2014 +0200
@@ -716,7 +716,7 @@
     ] ifFalse:[
         key := MIMETypes mimeTypeForFilename:(item fileName asFilename baseName).
     ].
-    item icon:(FileBrowser iconForKeyMatching:key).
+    item icon:(MIMETypeIconLibrary iconForKeyMatching:key).
     ^ item
 ! !
 
@@ -1423,11 +1423,11 @@
 !Archiver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.46 2014-03-05 21:55:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.47 2014-04-08 22:31:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.46 2014-03-05 21:55:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.47 2014-04-08 22:31:34 stefan Exp $'
 ! !