--- a/SocketAddress.st	Sat Mar 08 11:56:09 2008 +0100
+++ b/SocketAddress.st	Sat Mar 08 11:57:34 2008 +0100
@@ -594,6 +594,10 @@
     "
 !
 
+hostAddressString
+    ^ String streamContents:[:s | self printAddressOn:s ].
+!
+
 port
     self subclassResponsibility
 !
@@ -722,5 +726,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.28 2007-11-19 11:47:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.29 2008-03-08 10:57:34 cg Exp $'
 ! !