--- a/IPv6SocketAddress.st	Wed Jul 09 14:55:42 2003 +0200
+++ b/IPv6SocketAddress.st	Wed Jul 09 16:26:27 2003 +0200
@@ -62,6 +62,12 @@
 "
 ! !
 
+!IPv6SocketAddress class methodsFor:'instance creation'!
+
+peerName:peerName port:port
+    ^ self hostAddress:(Socket ipV6AddressOfHost:peerName) port:port
+! !
+
 !IPv6SocketAddress class methodsFor:'queries'!
 
 domainSymbol
@@ -103,5 +109,5 @@
 !IPv6SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.8 2003-05-21 21:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPv6SocketAddress.st,v 1.9 2003-07-09 14:26:27 cg Exp $'
 ! !