--- a/ProjectDefinition.st	Mon Sep 21 12:01:33 2009 +0200
+++ b/ProjectDefinition.st	Mon Sep 21 12:47:36 2009 +0200
@@ -1272,6 +1272,12 @@
     "Modified: / 17-08-2006 / 19:59:17 / cg"
 !
 
+preLoadAction
+    "invoked before loading a project"
+
+    "/ intentionally left blank
+!
+
 preRequisites
     "list packages which are required as a prerequisite. This method is generated automatically,
      by searching along the inheritance chain of all of my classes.
@@ -2666,6 +2672,7 @@
         Transcript showCR:self name.
     ].
 
+    self preLoadAction.
     Class withoutUpdatingChangesDo:[
         self loadPreRequisitesAsAutoloaded:asAutoloaded.
         asAutoloaded ifFalse:[
@@ -2675,9 +2682,8 @@
         newStuffHasBeenLoaded := newStuffHasBeenLoaded | (self loadAllClassesAsAutoloaded:asAutoloaded).
         self loadSubProjectsAsAutoloaded:asAutoloaded.
     ].
-
+    self postLoadAction.
     self projectIsLoaded:true.
-    self postLoadAction.
 
     ^ newStuffHasBeenLoaded
 
@@ -4335,7 +4341,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.230 2009-09-21 10:01:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.231 2009-09-21 10:47:36 fm Exp $'
 ! !
 
 ProjectDefinition initialize!