--- a/ResourcePack.st	Fri Oct 26 13:50:02 2018 +0200
+++ b/ResourcePack.st	Fri Oct 26 21:16:28 2018 +0200
@@ -881,13 +881,13 @@
         toSearch := OrderedCollection withAll:superPacks.
         [toSearch notEmpty] whileTrue:[
             pack := toSearch removeFirst.
-            (alreadySearched includes:pack) ifFalse:[
+            (alreadySearched includes:pack packsFileName) ifFalse:[
                 val := pack localAt:aKey.
                 val notNil ifTrue:[
                     cache at:aKey put:val.
                     ^ val
                 ].
-                alreadySearched add:pack.
+                alreadySearched add:pack packsFileName.
                 (more := pack superPacks) notEmptyOrNil ifTrue:[
                     self assert:(more conform:[:each | each isNil or:[pack isKindOf:ResourcePack]]).
                     toSearch addAll:more.
@@ -948,7 +948,7 @@
 "/    ^ val
 
     "Modified: / 18-09-2006 / 18:50:52 / cg"
-    "Modified: / 12-09-2018 / 18:32:57 / Claus Gittinger"
+    "Modified: / 26-10-2018 / 21:16:15 / Claus Gittinger"
 !
 
 localAt:aKey