--- a/Smalltalk.st	Tue Feb 20 14:09:35 2007 +0100
+++ b/Smalltalk.st	Tue Feb 20 16:29:26 2007 +0100
@@ -6433,9 +6433,7 @@
     
     projectDefinitionClass notNil ifTrue:[
         projectDefinitionClass autoload.
-
-        "XXX have to honor doLoadAsAutoloaded here!!"
-        projectDefinitionClass load.
+        projectDefinitionClass loadAsAutoloaded:doLoadAsAutoloaded.
         silent ifFalse:[
             Transcript showCR:('Smalltalk [info]: loaded package: ' , aPackageId , ' from project definition').
         ].
@@ -6959,5 +6957,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.807 2007-02-19 14:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.808 2007-02-20 15:29:26 stefan Exp $'
 ! !