--- a/Smalltalk.st	Sun Oct 14 22:25:39 2018 +0200
+++ b/Smalltalk.st	Sun Oct 14 22:40:22 2018 +0200
@@ -8232,19 +8232,17 @@
 
     aPackage notNil ifTrue:[
         prjDir := self projectDirectoryForPackage:aPackage.
-
         (prjDir notNil
         and:[(prjDir := prjDir asFilename) exists
         and:[(rsrcDir := prjDir / 'resources') exists]]) ifTrue:[
             ^ rsrcDir
         ].
-        rsrcDir := self getSystemFileName:('.resources/' , (aPackage copyReplaceAll:$: with:$/)).
-        rsrcDir notNil ifTrue:[
-            ^ rsrcDir asFilename
-        ].
-        rsrcDir := self getSystemFileName:('resources/' , (aPackage copyReplaceAll:$: with:$/)).
-        rsrcDir notNil ifTrue:[
-            ^ rsrcDir asFilename
+        
+        #( '../Resources' '.resources' 'resources' ) do:[:eachPossibleRsrcDir |
+            rsrcDir := self getSystemFileName:(eachPossibleRsrcDir,'/',(aPackage copyReplaceAll:$: with:$/)).
+            rsrcDir notNil ifTrue:[
+                ^ rsrcDir asFilename
+            ].
         ].
     ].
     ^ nil