--- a/ResourcePack.st	Tue Feb 25 12:46:18 2003 +0100
+++ b/ResourcePack.st	Tue Feb 25 13:11:53 2003 +0100
@@ -197,7 +197,7 @@
     "get the full resource definitions for aClass (i.e. with super packs).
      Also leave the resulting pack in the cache for faster access next time."
 
-    |nm pack superPack pkg prj prjDir baseName path|
+    |nm pack prjDir baseName|
 
     nm := aClass resourcePackName.
     pack := self searchCacheFor:nm.
@@ -212,12 +212,12 @@
     and:[(prjDir := prjDir asFilename) exists
     and:[(prjDir := prjDir construct:'resources') exists
     and:[(prjDir construct:baseName) exists]]]) ifTrue:[
-	pack := self fromFile:baseName directory:prjDir pathName.
+        pack := self fromFile:baseName directory:prjDir pathName.
     ] ifFalse:[
-	pack := self fromFile:baseName.
+        pack := self fromFile:baseName.
     ].
     aClass == Object ifFalse:[
-	pack superPack:(self for:(aClass superclass)).
+        pack superPack:(self for:(aClass superclass)).
     ].
     pack packsClassName:nm.
     self addToCache:pack.
@@ -813,7 +813,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.75 2003-02-25 11:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.76 2003-02-25 12:11:53 cg Exp $'
 ! !
 
 ResourcePack initialize!