--- a/SocketAddress.st	Thu Jul 10 14:23:53 2014 +0200
+++ b/SocketAddress.st	Thu Jul 10 14:23:59 2014 +0200
@@ -671,7 +671,7 @@
 
     "/ 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:[
+    (aGCOrStream isStream) ifTrue:[
         self printOn:aGCOrStream.
         ^ self.
     ].
@@ -829,10 +829,10 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.45 2014-05-30 09:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.46 2014-07-10 12:23:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.45 2014-05-30 09:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.46 2014-07-10 12:23:59 cg Exp $'
 ! !