--- a/SocketAddress.st	Wed Aug 07 18:06:08 2013 +0200
+++ b/SocketAddress.st	Wed Aug 07 18:06:31 2013 +0200
@@ -113,7 +113,7 @@
 anyHost
     "get a new instance representing the ANY-host address"
 
-    ^ self hostAddress:(self anyAddress) port:0
+    ^ self hostAddress:self anyAddress
 !
 
 fromBytes:bytes
@@ -129,7 +129,7 @@
 hostAddress:addr
     "get a new instance given addr-bytes"
 
-    ^ self hostAddress:addr port:0
+    ^ self new hostAddress:addr
 !
 
 hostAddress:addr port:portNr
@@ -810,10 +810,10 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.40 2013-07-11 15:02:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.41 2013-08-07 16:06:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.40 2013-07-11 15:02:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.41 2013-08-07 16:06:31 cg Exp $'
 ! !