--- a/Tools__NewSystemBrowser.st	Sun Jan 24 06:56:35 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Jan 25 06:42:22 2016 +0100
@@ -51058,7 +51058,7 @@
                 cls isNil ifTrue:[
                     lbl := chg className asText allStrikedOut.
                 ] ifFalse:[
-                    lbl := cls theNonMetaclass name allBold
+                    lbl := cls theNonMetaclass name "allBold"
                 ].    
                 lbl
             ]
@@ -51649,10 +51649,12 @@
     aHistoryEntry meta ifTrue:[
         className := className , ' class'.
     ].
-    name := className allBold.
+    name := className.
     (sel := aHistoryEntry selector) notNil ifTrue:[
-        name := name , ' ' , sel.
-    ].
+        name := name , ' ' , sel allBold.
+    ] ifFalse:[
+        name := name "allBold".
+    ].    
     ^ name contractTo:100.
 
     "Created: / 08-09-2012 / 20:43:17 / cg"