--- a/Tools__MethodCategoryList.st	Sat Feb 07 18:52:18 2015 +0100
+++ b/Tools__MethodCategoryList.st	Sat Feb 07 18:59:00 2015 +0100
@@ -1314,9 +1314,9 @@
                                                 and:[ (packageFilter includes:mthd package) not 
                                                 and:[ showChanges not ]].
                                     suppress ifFalse:[
-        numAll := numAll + 1.
+                                        numAll := numAll + 1.
                                         categoryBag add:cat.
-                                        suppressPseudoProtocolsNow ifFalse:[
+                                        (showPseudoProtocols and:[suppressPseudoProtocolsNow not]) ifTrue:[
                                             info := self methodInfoFor:mthd in:cls selector:sel lazy:suppressPseudoProtocolsNow.
                                             info notNil ifTrue:[
                                                 info isObsolete ifTrue:[ numObsolete := numObsolete + 1 ].
@@ -1412,7 +1412,7 @@
         ].
 
         (packageFilter isNil or:[ packageFilter includes:eachClass package ]) ifTrue:[
-            (suppressPseudoProtocolsNow not and:[showPseudoProtocols]) ifTrue:[
+            (showPseudoProtocols and:[suppressPseudoProtocolsNow not]) ifTrue:[
                 "/ see if there is a subclassResponsibility in a superclass
                 required := SmalltalkCodeGeneratorTool missingRequiredProtocolFor:eachClass.
                 numMissingRequired := numMissingRequired + required size.
@@ -1546,7 +1546,7 @@
         ].
     ].
 
-    (suppressPseudoProtocolsNow not and:[showPseudoProtocols]) ifTrue:[
+    (showPseudoProtocols and:[suppressPseudoProtocolsNow not]) ifTrue:[
         addPseudoEntryWithColor := [:s :n :clr | 
                                 n > 0 ifTrue:[
                                     categoryList 
@@ -2124,11 +2124,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.106 2015-02-01 13:32:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.107 2015-02-07 17:59:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.106 2015-02-01 13:32:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.107 2015-02-07 17:59:00 cg Exp $'
 ! !