--- a/SocketAddress.st	Wed Jul 09 17:08:05 2003 +0200
+++ b/SocketAddress.st	Wed Jul 09 17:31:43 2003 +0200
@@ -163,10 +163,6 @@
     self newDomain:#unix
     self newDomain:#inet
    "
-!
-
-peerName:peerName port:port
-    self error:'unsupported domain'.
 ! !
 
 !SocketAddress class methodsFor:'queries'!
@@ -298,8 +294,8 @@
 !
 
 getNameInfo:socketAddress wantHostName:wantHostName wantServiceName:wantServiceName datagram:useDatagram flags:flags 
-    "answer an Array containing the hostName and serviceName
-     in socketAddress. SocketType may be one "
+    "answer an Array containing the hostName and/or serviceName
+     for a given socketAddress."
 
     ^ OperatingSystem socketAccessor
             getNameInfo:socketAddress wantHostName:wantHostName 
@@ -309,7 +305,7 @@
      self getNameInfo:
          (self getAddressInfo:'localhost' serviceName:'echo' 
                 domain:#inet type:#stream protocol:nil flags:nil) first socketAddress
-         wantHostName:true wantServiceName:true datagram:false flags:0
+         wantHostName:true wantServiceName:true datagram:false flags:0     
     "
 !
 
@@ -488,5 +484,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.18 2003-07-09 14:26:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.19 2003-07-09 15:31:29 cg Exp $'
 ! !