--- a/Tools__ClassList.st	Mon May 09 10:02:59 2016 +0200
+++ b/Tools__ClassList.st	Mon May 09 10:03:01 2016 +0200
@@ -1574,7 +1574,7 @@
                                                         and:[cl ~~ (JavaVM systemClassLoader instVarNamed:#parent)]]]) 
                                             ifTrue:[
                                             clstring := ' [', cl displayString , ']'.
-                                            nm := nm , (clstring asText colorizeAllWith: Color gray)
+                                            nm := nm , (clstring withColor: Color gray)
                                     ]
                                 ]
                             ].
@@ -1992,7 +1992,7 @@
 
     aClass isLoaded ifFalse:[
         unloadedClassesColor notNil ifTrue:[
-            nm := nm colorizeAllWith:unloadedClassesColor
+            nm := nm withColor:unloadedClassesColor
         ]
     ].
 
@@ -2007,7 +2007,7 @@
 
         (instMethodCount notNil or:[ classMethodCount notNil ]) ifTrue:[ 
             nm := nm,((' (%1+%2) ' bindWith:(instMethodCount ? '?') with:(classMethodCount ? '?')) 
-                        colorizeAllWith:self class pseudoEntryForegroundColor).
+                        withColor:self class pseudoEntryForegroundColor).
         ]
     ].