--- a/SystemBrowser.st	Tue Oct 08 14:36:30 2013 +0100
+++ b/SystemBrowser.st	Mon Oct 14 22:45:44 2013 +0100
@@ -1758,8 +1758,6 @@
     ^ ToolbarIconLibrary testCasePassedIcon
 !
 
-
-
 testCaseUnknownResultIcon
     <resource: #programImage>
 
@@ -6479,6 +6477,7 @@
 !SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
 
 displayOn:aGCOrStream
+    | cls name |
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
     "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
@@ -6486,7 +6485,9 @@
         ^ super displayOn:aGCOrStream
     ].
 
-    className printOn:aGCOrStream.
+    cls := self theClass.
+    name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className].
+    name printOn:aGCOrStream.
     meta ifTrue:[
         aGCOrStream
             emphasis:#bold;
@@ -6501,6 +6502,7 @@
 
     "Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-07-2011 / 13:44:32 / cg"
+    "Modified: / 14-10-2013 / 12:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SystemBrowser class methodsFor:'documentation'!