--- a/Geometric.st	Fri Dec 06 15:40:05 2002 +0100
+++ b/Geometric.st	Mon Dec 09 11:44:02 2002 +0100
@@ -399,11 +399,16 @@
     "Modified: 8.5.1996 / 09:07:02 / cg"
 !
 
-displayOn:aGC
+displayOn:aGCOrStream
     "display myself on a graphicsContext; the current graphics
      attributes are used. The default here is to display the outline."
 
-    ^ self displayStrokedOn:aGC
+    "/ 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:[
+        ^ super displayOn:aGCOrStream
+    ].
+    ^ self displayStrokedOn:aGCOrStream
 
     "
      |v r|
@@ -515,6 +520,7 @@
 !Geometric class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.27 2001-10-02 11:27:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.28 2002-12-09 10:44:02 cg Exp $'
 ! !
+
 Geometric initialize!