# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1540581388 -7200
# Node ID e0d9ebe8cda15579b2cf66655008c17102957a8b
# Parent  cb50d84d7cb4443fd7c5b21196de3c7c9287f158
#BUGFIX by cg
class: ResourcePack
changed: #at:ifAbsent:

diff -r cb50d84d7cb4 -r e0d9ebe8cda1 ResourcePack.st
--- 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