--- a/Tools_BrowserList.st	Wed Nov 07 15:35:53 2012 +0100
+++ b/Tools_BrowserList.st	Wed Nov 07 15:36:23 2012 +0100
@@ -828,15 +828,9 @@
         ^ self.
     ].
 
-"/    (changedObject == ChangeSet)
-"/    ifTrue:[
-"/        self delayedUpdate:something with:aParameter from:changedObject.
-"/        ^ self.
-"/    ].
-
 "/    changedObject == selectionHolder ifTrue:[
 "/        listValid ifFalse:[
-"/            self slaveMode value ifTrue:[
+"/            self inSlaveMode ifTrue:[
 "/                ^ self
 "/            ]
 "/        ]
@@ -1308,6 +1302,10 @@
     ].
 !
 
+inSlaveMode
+    ^ (self slaveMode value == true)
+!
+
 inSlaveModeOrInvisible
     (self slaveMode value == true) ifTrue:[^ true].
 "/    self slaveMode value isNil ifTrue:[
@@ -1566,11 +1564,11 @@
 commonPostBuild
     |list|
 
-    self slaveMode value == true ifFalse:[
+    self inSlaveMode ifFalse:[
         listValid ifFalse:[self enqueueDelayedUpdateList "updateList"].
     ] ifTrue:[
         listValid := false.
-        self enqueueDelayedUpdateList.
+        "/ self enqueueDelayedUpdateList.
 "/        self invalidateList
     ].
 
@@ -1873,9 +1871,9 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.51 2012-11-04 12:17:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.52 2012-11-07 14:36:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.51 2012-11-04 12:17:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.52 2012-11-07 14:36:23 cg Exp $'
 ! !