--- a/SocketAddress.st	Tue May 20 18:27:08 2003 +0200
+++ b/SocketAddress.st	Wed May 21 15:45:45 2003 +0200
@@ -350,8 +350,9 @@
 
      This is an internal interface!!"
 
-    self replaceBytesFrom:1 to:aByteArray size 
-         with:aByteArray startingAt:1.
+    self replaceBytesFrom:1 to:(self size) with:aByteArray startingAt:1.
+
+
 ! !
 
 !SocketAddress methodsFor:'queries'!
@@ -387,5 +388,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.12 2003-05-20 15:47:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.13 2003-05-21 13:45:45 cg Exp $'
 ! !

--- a/SocketAddressInfo.st	Tue May 20 18:27:08 2003 +0200
+++ b/SocketAddressInfo.st	Wed May 21 15:45:45 2003 +0200
@@ -82,8 +82,21 @@
     type := something.
 ! !
 
+!SocketAddressInfo methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:self className.
+    aStream nextPutAll:'(domain='.
+    domain printOn:aStream.
+    aStream nextPutAll:' type='.
+    type printOn:aStream.
+    aStream nextPutAll:' addr='.
+    socketAddress printOn:aStream.
+    aStream nextPutAll:')'.
+! !
+
 !SocketAddressInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddressInfo.st,v 1.1 2003-03-27 13:29:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddressInfo.st,v 1.2 2003-05-21 13:45:37 cg Exp $'
 ! !