--- a/Tools_InheritanceClassList.st	Wed Feb 05 19:39:57 2014 +0100
+++ b/Tools_InheritanceClassList.st	Wed Feb 05 19:55:55 2014 +0100
@@ -61,38 +61,35 @@
 delayedUpdate:something with:aParameter from:changedObject
     |top oldSelection newSelection showMeta|
 
-"/    self inSlaveModeOrInvisible ifTrue:[^ self].
-"/    self inSlaveMode ifTrue:[^ self].
+    self inSlaveModeOrInvisible ifTrue:[^ self].
+"/    (self slaveMode value == true) ifTrue:[^ self].
 
     changedObject == slaveMode ifTrue:[
-        self inSlaveMode ifTrue:[
-            self invalidateList.
-        ] ifFalse:[
-            listValid ifFalse:[
-                self updateList
-            ].
-        ].
-        ^  self
+	listValid ~~ true ifTrue:[
+	    self enqueueDelayedUpdateList
+	].
+	"/ self invalidateList.
+	^  self
     ].
 
     changedObject == meta ifTrue:[
-        oldSelection := self selectedClasses value ? #().
-        showMeta := meta value.
+	oldSelection := self selectedClasses value ? #().
+	showMeta := meta value.
 
-        newSelection := oldSelection collect:[:cls | showMeta ifTrue:[cls theMetaclass] ifFalse:[cls theNonMetaclass]].
-        newSelection := newSelection asOrderedCollection.
+	newSelection := oldSelection collect:[:cls | showMeta ifTrue:[cls theMetaclass] ifFalse:[cls theNonMetaclass]].
+	newSelection := newSelection asOrderedCollection.
 
-        top := self topClassHolder value.
-        top notNil ifTrue:[
-            top := showMeta ifTrue:[top theMetaclass] ifFalse:[top theNonMetaclass].
-            self topClassHolder value:top.
-        ].
-        self invalidateList.
+	top := self topClassHolder value.
+	top notNil ifTrue:[
+	    top := showMeta ifTrue:[top theMetaclass] ifFalse:[top theNonMetaclass].
+	    self topClassHolder value:top.
+	].
+	self invalidateList.
 
-        (newSelection includes:nil) ifTrue:[self halt:'should not happen'].
+(newSelection includes:nil) ifTrue:[self halt:'should not happen'].
 
-        self selectedClasses value:newSelection.
-        ^ self.
+	self selectedClasses value:newSelection.
+	^ self.
     ].
     super delayedUpdate:something with:aParameter from:changedObject
 
@@ -190,5 +187,6 @@
 !InheritanceClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.5 2012-11-07 14:35:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.6 2014-02-05 18:55:55 cg Exp $'
 ! !
+