--- 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 $'
 ! !