--- a/ResourcePack.st	Mon Oct 15 02:01:13 2018 +0200
+++ b/ResourcePack.st	Mon Oct 15 02:06:57 2018 +0200
@@ -374,7 +374,7 @@
     ].
 
 '4) fromFile ' print. resourceFileName print.
-' in ' print. resourceFileName printCR.
+' in ' print. rsrcDir printCR.
     pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.
     pack packsClassOrFileName:fullName.
     ^ pack
@@ -427,6 +427,8 @@
     KeepStatisticsOnUsedKeys == true ifTrue:[
         newPack rememberUsedKeys.
     ].        
+'5) file ' print. aFileName print.
+' in ' print. dirName printCR.
     newPack readFromFile:aFileName directory:dirName.
     cached ifTrue:[
         self addToCache:newPack.
@@ -1541,6 +1543,8 @@
         ].
     ].
 
+'6) inStream ' print. inStream printCR.
+
     inStream isNil ifTrue:[
         "
          an empty pack