--- a/Tools__BrowserList.st	Thu Mar 05 13:29:47 2015 +0100
+++ b/Tools__BrowserList.st	Thu Mar 05 13:30:29 2015 +0100
@@ -905,11 +905,11 @@
         ^ self.
     ].  
     (changedObject == Smalltalk) ifTrue:[
-        something == #preLoad ifTrue:[
+        (#( preLoad prePackageLoad preClassLoad ) includes:something) ifTrue:[
             loadInProgress := true.
             ^ self.
         ].
-        something == #postLoad ifTrue:[
+        (#( postLoad postPackageLoad postClassLoad ) includes:something) ifTrue:[
             "/ must check, as it could be nested...
             LoadInProgressQuery query ifFalse:[
                 loadInProgress := false.
@@ -2112,10 +2112,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.84 2015-03-02 09:54:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.85 2015-03-05 12:30:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.84 2015-03-02 09:54:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.85 2015-03-05 12:30:29 cg Exp $'
 ! !