--- a/Tools_MethodCategoryList.st	Fri Mar 23 15:56:52 2012 +0100
+++ b/Tools_MethodCategoryList.st	Fri Mar 23 15:57:29 2012 +0100
@@ -1567,7 +1567,9 @@
 "/                selectedProtocolsHolder value:nil.
 "/                selectedProtocolsHolder value:newSelection.
             selectedProtocolsHolder setValue:newSelection.
+            selectedProtocolsHolder removeDependent:self.    
             selectedProtocolsHolder changed:#value.
+            selectedProtocolsHolder addDependent:self.    
         ] ifFalse:[
             prevSelection := selectedProtocolsHolder value.
             selectedProtocolsHolder value:nil.
@@ -1596,7 +1598,7 @@
     listValid := true.
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
-    "Modified: / 08-08-2011 / 18:49:31 / cg"
+    "Modified: / 23-03-2012 / 15:53:41 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'private-info'!
@@ -1979,11 +1981,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.77 2011-09-23 18:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.78 2012-03-23 14:57:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.77 2011-09-23 18:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.78 2012-03-23 14:57:29 cg Exp $'
 ! !
 
 MethodCategoryList initialize!