--- a/ProjectDefinition.st	Thu Dec 09 12:32:13 2010 +0100
+++ b/ProjectDefinition.st	Thu Dec 09 12:36:24 2010 +0100
@@ -4827,12 +4827,14 @@
 
     |packagesToLoad packagesBefore|
 
+    "/ assume that the packages are loaded IFF the definition class is present and
+    "/ the extensions are present.
     packagesToLoad := aListOfPackages 
                             reject:[:packageID | 
                                 |cls|
 
                                 cls := ProjectDefinition definitionClassForPackage:packageID.
-                                cls notNil and:[cls isFullyLoaded]
+                                cls notNil and:[cls isFullyLoaded "hasAllExtensionsLoaded"]
                             ].
     packagesToLoad isEmpty ifTrue:[^ self].
 
@@ -4861,7 +4863,7 @@
         PackagesBeingLoaded := packagesBefore.
     ].
 
-    "Modified: / 09-12-2010 / 12:31:29 / cg"
+    "Modified: / 09-12-2010 / 12:36:17 / cg"
 !
 
 loadPreRequisitesAsAutoloaded:asAutoloaded
@@ -5346,9 +5348,11 @@
 !
 
 isFullyLoaded
-    ^ self hasAllCompiledClassesFullyLoaded and:[self hasAllClassesLoaded and:[self hasAllExtensionsLoaded]]
+    ^ self hasAllCompiledClassesFullyLoaded 
+    and:[self hasAllClassesLoaded and:[self hasAllExtensionsLoaded]]
 
     "Created: / 24-10-2006 / 23:52:23 / cg"
+    "Modified: / 09-12-2010 / 12:32:31 / cg"
 !
 
 projectType
@@ -5445,11 +5449,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.325 2010-12-09 11:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.326 2010-12-09 11:36:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.325 2010-12-09 11:32:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.326 2010-12-09 11:36:24 cg Exp $'
 ! !
 
 ProjectDefinition initialize!