--- a/SystemBrowser.st	Sun Aug 18 13:04:25 2013 +0200
+++ b/SystemBrowser.st	Mon Aug 19 18:00:57 2013 +0200
@@ -6408,12 +6408,26 @@
 
 !SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
 
-displayString
-
-    ^(className , (meta ifTrue:[' class'] ifFalse:[''])) asText allBold ,
-        (selector isNil 
-            ifTrue:[''] 
-            ifFalse:[ ' >> ' , (selector asText "allItalic") ])
+displayOn:aGCOrStream
+
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    (aGCOrStream isStream) ifFalse:[
+        ^ super displayOn:aGCOrStream
+    ].
+
+    className printOn:aGCOrStream.
+    meta ifTrue:[
+        aGCOrStream
+            emphasis:#bold;
+            nextPutAll:' class';
+            emphasis:nil.
+    ].
+    selector notNil ifTrue:[ 
+        aGCOrStream
+            nextPutAll:' >> ';
+            nextPutAll:selector.
+    ].
 
     "Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-07-2011 / 13:44:32 / cg"
@@ -6422,15 +6436,15 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.331 2013-07-06 16:04:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.331 2013-07-06 16:04:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.331 2013-07-06 16:04:27 cg Exp $'
+    ^ '$Id: SystemBrowser.st,v 1.332 2013-08-19 16:00:57 stefan Exp $'
 ! !