--- a/ProjectBuilder.st	Wed Oct 05 17:35:22 2016 +0200
+++ b/ProjectBuilder.st	Wed Oct 05 19:02:48 2016 +0200
@@ -133,6 +133,9 @@
 !ProjectBuilder methodsFor:'accessing'!
 
 buildDirectory
+    buildDirectory isNil ifTrue:[
+        self determineBuildDirectory
+    ].    
     ^ buildDirectory
 !
 
@@ -288,12 +291,8 @@
     directory := package directory.
 
     buildDirectory isNil ifTrue:[
-        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
-        buildDirectory isNil ifTrue:[
-            buildDirectory := Filename tempDirectory construct:'stx_build'.
-        ].
+        self determineBuildDirectory.
     ].
-    buildDirectory := buildDirectory asFilename.
 
     "/ self validateBuildDirectoryIsPresent.
 
@@ -758,6 +757,16 @@
     "Modified: / 15-08-2011 / 14:58:46 / cg"
 !
 
+determineBuildDirectory
+    buildDirectory isNil ifTrue:[
+        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
+        buildDirectory isNil ifTrue:[
+            buildDirectory := Filename tempDirectory construct:'stx_build'.
+        ].
+    ].
+    buildDirectory := buildDirectory asFilename.
+!
+
 generateBuildSupportFilesByFilingOutIn:packageTargetDir forDefinitionClass:projectDefinitionClass
     |fullPathName|