--- a/ProjectDefinition.st	Fri Feb 26 21:20:38 2010 +0100
+++ b/ProjectDefinition.st	Tue Mar 02 12:07:16 2010 +0100
@@ -1742,7 +1742,10 @@
 !
 
 subProjects
-    "list packages which are known as subprojects. This method is generated automatically.
+    <resource: #obsolete>
+
+    "OBSOLETE.
+     list packages which are known as subprojects. This method is generated automatically.
      However, when generating automatically, packages are only added - never removed, unless listed
      in excludedFromSubProjects."
 
@@ -3874,8 +3877,8 @@
         newStuffHasBeenLoaded := newStuffHasBeenLoaded | (meOrMySecondIncarnation loadAllClassesAsAutoloaded:asAutoloaded).
 "/ no, don't load subProjects here - will lead to a recursion, which leads
 "/ to some classes being loaded from source (soap)
-"/        self activityNotification:'Loading sub projects'.
-"/        meOrMySecondIncarnation loadSubProjectsAsAutoloaded:asAutoloaded.
+        self activityNotification:'Loading sub projects'.
+        meOrMySecondIncarnation loadSubProjectsAsAutoloaded:asAutoloaded.
     ].
     self activityNotification:'Executing post-load action'.
 
@@ -4750,6 +4753,7 @@
     "load extension methods - do not load if they are already present"
 
     self hasAllExtensionsLoaded ifFalse:[
+self halt.
         Verbose == true ifTrue:[
             Transcript showCR:('  %1: filing in extensions...' bindWith:self name).
         ].
@@ -5337,11 +5341,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.307 2010-02-26 14:38:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.308 2010-03-02 11:07:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.307 2010-02-26 14:38:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.308 2010-03-02 11:07:16 cg Exp $'
 ! !
 
 ProjectDefinition initialize!