--- a/ProjectDefinition.st	Thu Dec 13 15:09:48 2012 +0100
+++ b/ProjectDefinition.st	Thu Dec 13 15:17:36 2012 +0100
@@ -19,7 +19,8 @@
 	category:'System-Support-Projects'
 !
 
-ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded'
+ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded
+	loadDirectory'
 
 "
  No other class instance variables are inherited by this class.
@@ -463,6 +464,19 @@
     "Modified: / 18-08-2006 / 12:37:02 / cg"
 !
 
+loadDirectory
+    "if I was loaded from a directory (as oposed to loaded via a dll or from a scm),
+     return that directory. Otherwise return nil."
+
+    ^ loadDirectory
+!
+
+loadDirectory:aDirectory
+    "remember the directory from which I was loaded from"
+
+    loadDirectory := aDirectory
+!
+
 module
     ^ self moduleOfClass:self
 
@@ -620,7 +634,11 @@
 !
 
 packageDirectory
-
+    "if I was loaded from a directory (as oposed to loaded via a dll or from a scm),
+     return that directory. 
+     Otherwise ask Smalltalk for my package directory a long the package path."
+
+    loadDirectory notNil ifTrue:[ ^ loadDirectory ].
     ^ Smalltalk packageDirectoryForPackageId: self package
 
     "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -6722,11 +6740,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.398 2012-12-11 14:15:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.399 2012-12-13 14:17:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.398 2012-12-11 14:15:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.399 2012-12-13 14:17:36 cg Exp $'
 !
 
 version_SVN