--- a/Tools_MethodCategoryList.st	Thu Oct 22 14:44:10 2009 +0200
+++ b/Tools_MethodCategoryList.st	Thu Oct 22 14:51:09 2009 +0200
@@ -1282,44 +1282,43 @@
             categoryList addFirst:(nameListEntryForALL allItalic).
             rawProtocolList addFirst:nameListEntryForALL.
         ].
-        showPseudoProtocols value ifTrue:[
-            numSuper > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForSuperSend bindWith:numSuper) allItalic).
-                rawProtocolList add:self class nameListEntryForSuperSend.
-            ].
-            numRedefine > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForRedefined bindWith:numRedefine) allItalic).
-                rawProtocolList add:self class nameListEntryForRedefined.
-            ].
-            numDocumentation > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForDocumentation bindWith:numDocumentation) allItalic).
-                rawProtocolList add:self class nameListEntryForDocumentation.
-            ].
-            numUncommented > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForUncommented bindWith:numUncommented) allItalic).
-                rawProtocolList add:self class nameListEntryForUncommented.
-            ].
-            numLong > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForLong bindWith:numLong) allItalic).
-                rawProtocolList add:self class nameListEntryForLong.
-            ].
-            numObsolete > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForObsolete bindWith:numObsolete) allItalic).
-                rawProtocolList add:self class nameListEntryForObsolete.
-            ].
-            numExtension > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForExtensions bindWith:numExtension) allItalic).
-                rawProtocolList add:self class nameListEntryForExtensions.
-            ].
-            numOverride > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForOverride bindWith:numOverride) allItalic).
-                rawProtocolList add:self class nameListEntryForOverride.
-            ].
-            numMissingRequired > 0 ifTrue:[
-                categoryList add:((self class nameListEntryForRequired bindWith:numMissingRequired) allItalic colorizeAllWith:Color red).
-                rawProtocolList add:self class nameListEntryForRequired.
-            ].
-
+    ].
+    showPseudoProtocols value ifTrue:[
+        numSuper > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForSuperSend bindWith:numSuper) allItalic).
+            rawProtocolList add:self class nameListEntryForSuperSend.
+        ].
+        numRedefine > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForRedefined bindWith:numRedefine) allItalic).
+            rawProtocolList add:self class nameListEntryForRedefined.
+        ].
+        numDocumentation > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForDocumentation bindWith:numDocumentation) allItalic).
+            rawProtocolList add:self class nameListEntryForDocumentation.
+        ].
+        numUncommented > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForUncommented bindWith:numUncommented) allItalic).
+            rawProtocolList add:self class nameListEntryForUncommented.
+        ].
+        numLong > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForLong bindWith:numLong) allItalic).
+            rawProtocolList add:self class nameListEntryForLong.
+        ].
+        numObsolete > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForObsolete bindWith:numObsolete) allItalic).
+            rawProtocolList add:self class nameListEntryForObsolete.
+        ].
+        numExtension > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForExtensions bindWith:numExtension) allItalic).
+            rawProtocolList add:self class nameListEntryForExtensions.
+        ].
+        numOverride > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForOverride bindWith:numOverride) allItalic).
+            rawProtocolList add:self class nameListEntryForOverride.
+        ].
+        numMissingRequired > 0 ifTrue:[
+            categoryList add:((self class nameListEntryForRequired bindWith:numMissingRequired) allItalic colorizeAllWith:Color red).
+            rawProtocolList add:self class nameListEntryForRequired.
         ].
     ].
     ^ categoryList
@@ -1711,11 +1710,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.43 2009-10-22 12:43:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.44 2009-10-22 12:51:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.43 2009-10-22 12:43:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.44 2009-10-22 12:51:09 cg Exp $'
 ! !
 
 MethodCategoryList initialize!