--- a/Tools__ObjectModuleInformation.st	Thu Oct 22 00:13:30 2009 +0200
+++ b/Tools__ObjectModuleInformation.st	Thu Oct 22 19:34:21 2009 +0200
@@ -1006,7 +1006,7 @@
 "/                                      ].
 "/            listView1 middleButtonMenu:menu.
 
-            nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
+            nm := (method whoString) colorizeAllWith:Color blue.
         ].
         entry1 := InfoRow new.
         entry1 name:'Compiled method'; value:nm.
@@ -1036,7 +1036,7 @@
         list := (module functions select:[:f | f notNil])
                         collect:[:f | |entry|
                                         entry := InfoRow new.
-                                        entry name:(f name asText emphasizeAllWith:(#color->Color blue)).
+                                        entry name:(f name colorizeAllWith:Color blue).
                                         entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
                                         entry
                                 ].