--- a/MIMETypeIconLibrary.st	Fri Mar 12 13:28:38 2004 +0100
+++ b/MIMETypeIconLibrary.st	Fri Mar 12 13:43:46 2004 +0100
@@ -22,8 +22,6 @@
     matchedIcons := OrderedCollection new.
     fileNameToImageMap := Dictionary new.
 
-    resources := ResourcePack for:self.
-
     defaults := Dictionary new.
     #(
         "/ internal-type to icon mappings.
@@ -146,6 +144,8 @@
         ]
     ].
 
+    resources := self classResources.
+
     "all mappings from the resource file"
     resources keysAndValuesDo:addMapping.
 
@@ -250,7 +250,7 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.11 2003-12-04 15:53:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.12 2004-03-12 12:43:46 cg Exp $'
 ! !
 
 MIMETypeIconLibrary initialize!