--- a/Tools_MethodCategoryList.st	Wed Jul 06 09:46:24 2011 +0200
+++ b/Tools_MethodCategoryList.st	Wed Jul 06 11:44:35 2011 +0200
@@ -419,7 +419,7 @@
                     oldClass isMeta ifTrue:[
                         newClass := Smalltalk at:nm.
                         newClass isNil ifTrue:[
-                            Transcript showCR:'oops - browser lost class ' , nm.
+                            "/ Transcript showCR:'oops - browser lost class ' , nm.
                             newClass := oldClass
                         ] ifFalse:[
                             newClass := newClass theMetaclass
@@ -438,6 +438,8 @@
     anyChange ifTrue:[
         self updateOutputGenerator
     ].
+
+    "Modified: / 06-07-2011 / 11:44:13 / cg"
 !
 
 delayedUpdate:something with:aParameter from:changedObject
@@ -608,12 +610,13 @@
                             collect:[:each | rawProtocolList findFirst:[:p | p string = each string]].
             newIndices := newIndices select:[:each | each ~~ 0].
             newIndices ~= self selectedProtocolIndices value ifTrue:[
-                self selectedProtocolIndices setValue:nil.                    "/ to force update
-                self selectedProtocolIndices value:newIndices
+                self selectedProtocolIndices 
+                    setValue:nil;                    "/ to force update
+                    value:newIndices.
             ].
             (lastGeneratedProtocols notNil
             and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
-            and:[(selectedProtocolsHolder value ? #()) includes:self class nameListEntryForALL]])
+            and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
             ifTrue:[
                 "/ no need to update generator
             ] ifFalse:[
@@ -656,8 +659,8 @@
 
     super delayedUpdate:something with:aParameter from:changedObject
 
-    "Created: / 5.2.2000 / 13:42:10 / cg"
-    "Modified: / 29.2.2000 / 11:11:39 / cg"
+    "Created: / 05-02-2000 / 13:42:10 / cg"
+    "Modified: / 06-07-2011 / 11:43:55 / cg"
 !
 
 getSelectedProtocolsFromIndices
@@ -977,7 +980,7 @@
       ]
 
     "Created: / 05-02-2000 / 13:42:10 / cg"
-    "Modified: / 31-01-2011 / 18:29:15 / cg"
+    "Modified: / 06-07-2011 / 11:43:40 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'private'!
@@ -1056,11 +1059,13 @@
                     ]
                 ]        
             ] ifFalse:[
-                Transcript showCR:'Oops - cannot access methods source'.
+                Transcript showCR:'Oops - cannot access method source'.
             ]        
         ]
     ].
     ^ false
+
+    "Modified: / 06-07-2011 / 11:44:25 / cg"
 !
 
 classesToProcessForClasses:classes
@@ -1848,7 +1853,7 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.59 2011-07-05 21:26:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.60 2011-07-06 09:44:35 cg Exp $'
 ! !
 
 MethodCategoryList initialize!