--- a/Tools__SmalltalkDiffTool.st	Mon Aug 19 18:01:13 2013 +0200
+++ b/Tools__SmalltalkDiffTool.st	Mon Aug 19 18:01:16 2013 +0200
@@ -816,7 +816,7 @@
 !SmalltalkDiffTool::DiffItem class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__SmalltalkDiffTool.st,v 1.8 2011-09-12 09:52:32 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__SmalltalkDiffTool.st,v 1.9 2013-08-19 16:01:16 stefan Exp $'
 ! !
 
 !SmalltalkDiffTool::DiffItem class methodsFor:'instance creation'!
@@ -907,20 +907,26 @@
     "Created: / 06-12-2007 / 21:06:18 / janfrog"
 !
 
+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
+    ].
+
+    ^ self version printOn:aGCOrStream
+
+    "Created: / 06-12-2007 / 21:10:22 / janfrog"
+    "Modified: / 12-12-2007 / 15:14:31 / janfrog"
+    "Modified: / 08-11-2008 / 09:28:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 displayOn: aGC x:x y:y
 
     self displayChangeOn: aGC x:x y:y.
 
     "Created: / 21-05-2008 / 11:55:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-displayString
-
-    ^self version printString
-
-    "Created: / 06-12-2007 / 21:10:22 / janfrog"
-    "Modified: / 12-12-2007 / 15:14:31 / janfrog"
-    "Modified: / 08-11-2008 / 09:28:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !SmalltalkDiffTool::DiffItem methodsFor:'queries'!
@@ -997,9 +1003,10 @@
 !SmalltalkDiffTool class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SmalltalkDiffTool.st,v 1.8 2011-09-12 09:52:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SmalltalkDiffTool.st,v 1.9 2013-08-19 16:01:16 stefan Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: Tools__SmalltalkDiffTool.st,v 1.9 2013-08-19 16:01:16 stefan Exp $'
 ! !
+