--- a/Object.st	Fri Nov 23 15:11:36 2018 +0100
+++ b/Object.st	Fri Nov 23 15:12:14 2018 +0100
@@ -628,6 +628,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -3836,17 +3838,18 @@
      This method allows for any object to be displayed in some view
      (although the fallBack is to display its printString ...)"
 
-    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ old ST80 means: draw-yourself on a GC.
-    aGCOrStream isStream ifTrue:[
-        self printOn:aGCOrStream.
-        ^ self
-    ].
-    self obsoleteFeatureWarning:'displayOn: should not be used to display objects in a GC'.
-    ^ self displayOn:aGCOrStream x:0 y:0.
+    aGCOrStream isStream ifFalse:[
+        "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+        "/ old ST80 means: draw-yourself on a GC.
+        self obsoleteFeatureWarning:'displayOn: should not be used to display objects in a GC'.
+        self displayOn:aGCOrStream x:0 y:0.
+        ^ self.
+    ].
+    self printOn:aGCOrStream.
 
     "Created: / 29-05-1996 / 16:28:58 / cg"
     "Modified (format): / 22-02-2017 / 17:03:14 / cg"
+    "Modified: / 23-11-2018 / 14:54:12 / Stefan Vogel"
 !
 
 displayOn:aGC at:aPoint
@@ -3854,7 +3857,9 @@
      display the receiver in a graphicsContext - this method allows
      for any object to be displayed in a ListView - for example."
 
-    ^ self displayOn:aGC x:(aPoint x) y:(aPoint y).
+    self displayOn:aGC x:(aPoint x) y:(aPoint y).
+
+    "Modified: / 23-11-2018 / 14:54:34 / Stefan Vogel"
 !
 
 displayOn:aGC x:x y:y