--- a/Interval.st	Wed Feb 22 19:02:00 2017 +0100
+++ b/Interval.st	Wed Feb 22 19:02:03 2017 +0100
@@ -406,17 +406,19 @@
 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) ifTrue:[
-        self printOn:aGCOrStream.
-        ^ self.
+    "/ old ST80 means: draw-yourself on a GC.
+    (aGCOrStream isStream) ifFalse:[
+        ^ super displayOn:aGCOrStream
     ].
-    ^ super displayOn:aGCOrStream
+
+    self printOn:aGCOrStream.
 
     "
      (1 to:10) 
      (1 to:10 by:2) 
     "
+
+    "Modified: / 22-02-2017 / 17:00:56 / cg"
 !
 
 printOn:aStream