--- a/Tools__MethodList.st	Mon May 09 21:47:57 2016 +0200
+++ b/Tools__MethodList.st	Thu May 12 08:33:55 2016 +0200
@@ -1651,7 +1651,7 @@
 
     aMethod isNil ifTrue:[
         "/ a non-existing (pseudo) method (such as required protocol)
-        ^ selector colorizeAllWith:Color red.
+        ^ selector withColor:Color red.
     ].
 
     showClassFirst ifTrue:[
@@ -1763,7 +1763,7 @@
     (showCategory and:[aMethod mclass notNil and:[aMethod mclass supportsMethodCategories]]) ifTrue:[
         cat := aMethod category.
         cat notNil ifTrue:[
-            s := s , ' {' , (cat "asText allItalic" colorizeAllWith:Color gray), '}'
+            s := s , ' {' , (cat "allItalic" withColor:Color gray), '}'
         ]
     ].