--- a/ProjectDefinition.st	Wed Mar 26 11:12:53 2008 +0100
+++ b/ProjectDefinition.st	Mon Mar 31 15:49:56 2008 +0200
@@ -161,7 +161,7 @@
         |def|
 
         def := self definitionClassForPackage:eachPackageID.
-        def preRequisites do:[:eachPrerequisitePackageID|
+        def effectivePreRequisites do:[:eachPrerequisitePackageID|
             orderedTuples add:(Array with:eachPrerequisitePackageID with:eachPackageID).
         ].
     ].
@@ -919,6 +919,18 @@
     "Modified: / 18-08-2006 / 16:16:24 / cg"
 !
 
+effectivePreRequisites
+    "get the preRequisites, that are not excluded"
+
+    |preRequisites|
+
+    preRequisites := self preRequisites asSet.
+    preRequisites removeAllFoundIn:self excludedFromPreRequisites.
+    preRequisites remove:self package ifAbsent:[].
+
+    ^ preRequisites
+!
+
 extensionMethodNames_code
     ^ self extensionMethodNames_code_ignoreOldEntries:true
 
@@ -3967,7 +3979,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.177 2008-03-02 16:19:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.178 2008-03-31 13:49:56 fm Exp $'
 ! !
 
 ProjectDefinition initialize!