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