--- a/Tools__BrowserList.st	Sat Feb 07 17:01:15 2015 +0100
+++ b/Tools__BrowserList.st	Sat Feb 07 18:48:00 2015 +0100
@@ -895,6 +895,19 @@
         self environmentChanged.
         ^ self.
     ].  
+    (changedObject == Smalltalk) ifTrue:[
+        something == #preLoad ifTrue:[
+            loadInProgress := true.
+            ^ self.
+        ].
+        something == #postLoad ifTrue:[
+            "/ must check, as it could be nested...
+            LoadInProgressQuery query ifFalse:[
+                loadInProgress := false.
+            ].
+            ^ self.
+        ].
+    ].
 
     (NewSystemBrowser synchronousUpdate == true
     or:[ immediateUpdate value == true ])
@@ -2090,10 +2103,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.79 2015-02-01 14:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.79 2015-02-01 14:12:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $'
 ! !