--- a/ResourcePack.st	Mon Sep 18 15:27:07 2006 +0200
+++ b/ResourcePack.st	Mon Sep 18 16:57:29 2006 +0200
@@ -220,6 +220,8 @@
 
     |nm pack rsrcDir baseName|
 
+^ self forPackage:(aClass resourcePackage) cached:cached.
+
     nm := aClass resourcePackName.
     cached ifTrue:[
         pack := self searchCacheFor:nm.
@@ -1155,7 +1157,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.111 2006-09-18 08:54:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.112 2006-09-18 14:57:29 cg Exp $'
 ! !
 
 ResourcePack initialize!