--- a/Interval.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/Interval.st	Tue Nov 09 16:24:28 2010 +0000
@@ -395,8 +395,15 @@
 
 !Interval methodsFor:'printing & storing'!
 
-displayString
-    ^ self printString
+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 or:[aGCOrStream == Transcript]) ifTrue:[
+        self printOn:aGCOrStream.
+        ^ self.
+    ].
+    ^ super displayOn:aGCOrStream
 
     "
      (1 to:10) 
@@ -685,9 +692,14 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Interval.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: Interval.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: Interval.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: Interval.st 10590 2010-11-09 16:24:28Z vranyj1 $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic/Interval.st,v 1.52 2010-09-21 06:57:23 stefan Exp §'
 ! !
+