--- a/ResourcePack.st	Sat Sep 15 17:52:55 2018 +0200
+++ b/ResourcePack.st	Mon Sep 17 12:56:12 2018 +0200
@@ -16,12 +16,12 @@
 "{ NameSpace: Smalltalk }"
 
 Dictionary subclass:#ResourcePack
-        instanceVariableNames:'packsClassName packsFileName fileReadFailed superPack projectPack
-                usedKeys cache'
-        classVariableNames:'Packs FailedToLoadPacks DebugModifications
-                KeepStatisticsOnUsedKeys'
-        poolDictionaries:''
-        category:'Interface-Internationalization'
+	instanceVariableNames:'packsClassName packsFileName fileReadFailed superPack projectPack
+		usedKeys cache'
+	classVariableNames:'Packs FailedToLoadPacks DebugModifications
+		KeepStatisticsOnUsedKeys'
+	poolDictionaries:''
+	category:'Interface-Internationalization'
 !
 
 !ResourcePack class methodsFor:'documentation'!
@@ -333,6 +333,7 @@
 
     |fullName pack rsrcDir file|
 
+    package isNil ifTrue:[^ nil].
     fullName := package , '/resources/',resourceFileName.
 
     cached ifTrue:[
@@ -366,6 +367,7 @@
     "
 
     "Modified: / 28-09-2011 / 15:55:30 / cg"
+    "Modified: / 17-09-2018 / 12:55:54 / Claus Gittinger"
 !
 
 fromFile:aFileName