--- a/Smalltalk.st	Tue Feb 24 14:29:07 2015 +0100
+++ b/Smalltalk.st	Tue Feb 24 16:47:54 2015 +0100
@@ -5065,21 +5065,26 @@
 
     |dirsConsulted|
 
-    dirsConsulted := Set new.
-
-    "/ along the package-path
-    self packagePath do:[:eachPathComponent |
-	(dirsConsulted includes:eachPathComponent) ifFalse:[
-	    self
-		recursiveInstallAutoloadedClassesFrom:eachPathComponent
-		rememberIn:dirsConsulted
-		maxLevels:15
-		noAutoload:false
-		packageTop:eachPathComponent
-		showSplashInLevels:2.
-	]
-    ].
-    self splashInfo:nil.
+    Smalltalk changed:#preLoad.
+    [
+        dirsConsulted := Set new.
+
+        "/ along the package-path
+        self packagePath do:[:eachPathComponent |
+            (dirsConsulted includes:eachPathComponent) ifFalse:[
+                self
+                    recursiveInstallAutoloadedClassesFrom:eachPathComponent
+                    rememberIn:dirsConsulted
+                    maxLevels:15
+                    noAutoload:false
+                    packageTop:eachPathComponent
+                    showSplashInLevels:2.
+            ]
+        ].
+        self splashInfo:nil.
+    ] ensure:[
+        Smalltalk changed:#postLoad
+    ].
 
     "
      Smalltalk installAutoloadedClasses
@@ -8191,11 +8196,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1114 2015-02-20 22:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1115 2015-02-24 15:47:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1114 2015-02-20 22:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1115 2015-02-24 15:47:54 cg Exp $'
 !
 
 version_SVN