--- a/AppletalkSocketAddress.st	Wed Jul 09 14:55:42 2003 +0200
+++ b/AppletalkSocketAddress.st	Wed Jul 09 16:26:27 2003 +0200
@@ -54,6 +54,12 @@
 "
 ! !
 
+!AppletalkSocketAddress class methodsFor:'instance creation'!
+
+peerName:peerName port:port
+    ^ self hostAddress:(Socket appletalkAddressOfHost:peerName) port:port
+! !
+
 !AppletalkSocketAddress class methodsFor:'addressing'!
 
 anyNet
@@ -103,7 +109,6 @@
 !
 
 net:aNodeAddress
-
     self unsignedShortAt:4 put:aNodeAddress bigEndian:true
 
     "
@@ -169,5 +174,5 @@
 !AppletalkSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/AppletalkSocketAddress.st,v 1.7 2003-05-21 18:02:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/AppletalkSocketAddress.st,v 1.8 2003-07-09 14:26:23 cg Exp $'
 ! !