--- a/DecNetSocketAddress.st	Wed Jul 09 14:55:42 2003 +0200
+++ b/DecNetSocketAddress.st	Wed Jul 09 16:26:27 2003 +0200
@@ -52,6 +52,12 @@
 "
 ! !
 
+!DecNetSocketAddress class methodsFor:'instance creation'!
+
+peerName:peerName port:port
+    ^ self hostAddress:(Socket decnetAddressOfHost:peerName) port:port
+! !
+
 !DecNetSocketAddress class methodsFor:'queries'!
 
 domainSymbol
@@ -70,5 +76,5 @@
 !DecNetSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/DecNetSocketAddress.st,v 1.1 2003-05-21 17:56:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/DecNetSocketAddress.st,v 1.2 2003-07-09 14:26:19 cg Exp $'
 ! !