--- a/SocketAddress.st	Tue Jul 15 14:20:11 2003 +0200
+++ b/SocketAddress.st	Wed Jul 16 18:44:37 2003 +0200
@@ -71,6 +71,12 @@
 
 !SocketAddress class methodsFor:'instance creation'!
 
+anyHost
+    "get a new instance representing the ANY-host address"
+
+    ^ self hostAddress:(self anyAddress) port:0
+!
+
 hostAddress:addr
     "get a new instance given addr-bytes"
 
@@ -171,6 +177,12 @@
    "
 ! !
 
+!SocketAddress class methodsFor:'addressing'!
+
+anyAddress
+    self subclassResponsibility
+! !
+
 !SocketAddress class methodsFor:'queries'!
 
 domainCode
@@ -616,5 +628,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.21 2003-07-15 12:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.22 2003-07-16 16:44:29 cg Exp $'
 ! !