*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 08 Dec 2019 00:45:12 +0100
changeset 1609 225733b676f0
parent 1607 b5337206dc52
child 1610 7f35b9fac363
*** empty log message ***
smalltalk.rc
--- a/smalltalk.rc	Fri Nov 15 09:55:57 2019 +0100
+++ b/smalltalk.rc	Sun Dec 08 00:45:12 2019 +0100
@@ -810,7 +810,7 @@
 "/
 "/ load initial packages (as set in the user's prefs)
 "/
-UserPreferences current autoloadedPackages notEmpty ifTrue:[
+UserPreferences current autoloadedPackages notEmptyOrNil ifTrue:[
   (Smalltalk commandLineArguments includesAny:#('--noAutoload' '--noautoload')) ifTrue:[
     'smalltalk.rc [info]: autoloaded packages suppressed.' infoPrintCR.
   ] ifFalse:[
@@ -820,7 +820,11 @@
 	Error handle:[:ex |
 	    ('smalltalk.rc [error]: error while autoloading package: ',eachPackage) errorPrintCR.
 	] do:[
-	    Smalltalk loadPackage:eachPackage.
+	    Smalltalk loadPackage:eachPackage asAutoloaded:true.
+	    (defClass := eachPackage asPackageId projectDefinitionClass) notNil ifTrue:[
+		defClass installAutoloadedClasses.
+	    ].
+	    ('smalltalk.rc [info]: loaded ',eachPackage,'.') infoPrintCR.
 	]
     ].
     Smalltalk showSplashMessage:('done.').