Socket.st
changeset 3530 ce2171c0fe57
parent 3514 2d81c5ffa475
child 3550 58fab5f59ee8
--- a/Socket.st	Wed Mar 11 23:40:27 2015 +0100
+++ b/Socket.st	Thu Mar 12 11:50:27 2015 +0100
@@ -3395,7 +3395,9 @@
 !Socket methodsFor:'printing & storing'!
 
 printOn:aStream
-    aStream nextPutAll:self className; nextPutAll:'(protocol='.
+    aStream nextPutAll:self className; nextPutAll:'('.
+    domain printOn:aStream.
+    aStream nextPutAll:' protocol='.
     protocol printOn:aStream.
     aStream nextPutAll:' port='.
     self port printOn:aStream.
@@ -3808,6 +3810,7 @@
     "
 ! !
 
+
 !Socket methodsFor:'specials'!
 
 linger:anIntegerOrNil
@@ -4083,6 +4086,7 @@
     ^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil.
 ! !
 
+
 !Socket methodsFor:'waiting'!
 
 waitForNewConnectionOrDataOnAny:otherConnections timeout:timeoutSeconds
@@ -4159,10 +4163,10 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.312 2015-03-02 01:07:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.313 2015-03-12 10:50:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.312 2015-03-02 01:07:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.313 2015-03-12 10:50:27 stefan Exp $'
 ! !