--- a/Tools__NewSystemBrowser.st	Sat Jan 23 13:50:24 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Jan 24 15:25:57 2016 +0100
@@ -50937,7 +50937,7 @@
                 cls isNil ifTrue:[
                     lbl := chg className asText allStrikedOut.
                 ] ifFalse:[
-                    lbl := cls theNonMetaclass name allBold
+                    lbl := cls theNonMetaclass name "allBold"
                 ].    
                 lbl
             ]
@@ -51528,10 +51528,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"