--- a/ResourcePack.st	Mon Oct 15 11:42:10 2018 +0200
+++ b/ResourcePack.st	Mon Oct 15 11:48:25 2018 +0200
@@ -387,8 +387,8 @@
     ].        
         
     file := Smalltalk getResourceFileName:resourceFileName forPackage:package.
-    (file notNil and:[file exists]) ifTrue:[
-        rsrcDir := file asFilename directory.
+    (file notNil and:[(file := file asFilename) exists]) ifTrue:[
+        rsrcDir := file directory.
         pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.
         pack packsPackage:package.
         ^ pack