--- a/ProjectDefinition.st	Sun Jun 26 06:29:46 2016 +0100
+++ b/ProjectDefinition.st	Tue Jun 28 07:34:09 2016 +0100
@@ -576,10 +576,11 @@
 
     |loadDirectory|
 
-    (loadDirectory := self loadDirectory) ifNotNil:[ ^ loadDirectory ].
-    ^ Smalltalk packageDirectoryForPackageId: self package
+    (loadDirectory := self loadDirectory) notNil ifTrue:[ ^ loadDirectory ].
+    ^ Smalltalk getPackageDirectoryForPackage: self package
 
     "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 28-06-2016 / 07:53:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 packageName