--- a/Tools_MethodCategoryList.st	Wed Nov 07 17:32:30 2012 +0100
+++ b/Tools_MethodCategoryList.st	Wed Nov 07 17:34:06 2012 +0100
@@ -616,14 +616,14 @@
             ].
             "/ cg: does not work (selecting all with testcase classes)
             "/ don't see why, at the moment, but....
-"/            (lastGeneratedProtocols notNil
-"/            and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
-"/            and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
-"/            ifTrue:[
-"/                "/ no need to update generator
-"/            ] ifFalse:[
+            (lastGeneratedProtocols notNil
+            and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
+            and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
+            ifTrue:[
+                "/ no need to update generator
+            ] ifFalse:[
                 self updateOutputGenerator.
-"/            ]
+            ]
         ].
         ^ self
     ].
@@ -729,15 +729,15 @@
             oldMethod notNil ifTrue:[
                 variableFilter value size > 0 ifTrue:[
                     "/ sigh - must invalidate
-                    listValid == true ifTrue:[ self invalidateList ].
+                    listValid ifTrue:[ self invalidateList ].
                     ^ self.    
                 ].
                 oldMethod category ~= newMethod category ifTrue:[
-                    listValid == true ifTrue:[ self invalidateList ].
+                    listValid ifTrue:[ self invalidateList ].
                     ^ self.    
                 ].
                 "/ mhmh - its now changed (so coloring will change).
-                listValid == true ifTrue:[ self invalidateList ].
+                listValid ifTrue:[ self invalidateList ].
                 ^ self.
             ].
         ].
@@ -1318,7 +1318,7 @@
                                                 "/ because we already computed for 5 seconds, more and more will be found in
                                                 "/ the cache, and eventually, pseudo protocols will be shown anyway
                                                 masterApplication showInfo:'suppress pseudo protocols - parsing took too long'.
-                                                self enqueueDelayedUpdateList.
+                                                "/ self enqueueDelayedUpdateList.
                                             ].
                                         ]
                                     ]
@@ -2073,11 +2073,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.88 2012-11-04 10:40:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.89 2012-11-07 16:34:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.88 2012-11-04 10:40:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.89 2012-11-07 16:34:06 cg Exp $'
 ! !
 
 MethodCategoryList initialize!