--- a/DisplayObject.st	Fri Dec 06 11:10:21 2002 +0100
+++ b/DisplayObject.st	Mon Dec 09 11:44:15 2002 +0100
@@ -76,10 +76,17 @@
 
 !DisplayObject methodsFor:'ST-80 drawing'!
 
-displayOn: aDisplayMedium
+displayOn:aGCOrStream
     "for ST-80 compatibility; not used in ST/X"
 
-    self displayOn:aDisplayMedium 
+    "/ what a kludge - Dolphin and Squeak mean: printOn:;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on.
+    (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
+        self printOn:aGCOrStream.
+        ^ self
+    ].
+
+    self displayOn:aGCOrStream 
                 at:0@0 
        clippingBox:nil 
               rule:#copy
@@ -521,5 +528,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.26 2002-07-23 15:31:56 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.27 2002-12-09 10:44:15 cg Exp $'
 ! !