--- a/IPSocketAddress.st	Tue Sep 21 01:53:08 1999 +0200
+++ b/IPSocketAddress.st	Tue Sep 21 01:53:10 1999 +0200
@@ -14,7 +14,7 @@
 	instanceVariableNames:'port address'
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Compatibility-ST80'
+	category:'OS-Sockets'
 !
 
 !IPSocketAddress class methodsFor:'documentation'!
@@ -61,13 +61,6 @@
 "
 ! !
 
-!IPSocketAddress class methodsFor:'instance creation'!
-
-hostAddress:addr port:portNr
-    ^ self basicNew
-        hostAddress:addr port:portNr
-! !
-
 !IPSocketAddress class methodsFor:'queries'!
 
 hostAddressByName: hostName
@@ -88,6 +81,15 @@
      addr := IPSocketAddress hostAddressByName:'porty'.
      IPSocketAddress hostNameByAddress:addr  
     "
+!
+
+servicePortByName:serviceName
+    ^ Socket portOfService:serviceName
+
+    "
+     IPSocketAddress servicePortByName:'nntp' 
+     IPSocketAddress servicePortByName:'time' 
+    "
 ! !
 
 !IPSocketAddress methodsFor:'accessing'!
@@ -95,6 +97,15 @@
 hostAddress:addr port:portNr
     address := addr.
     port := portNr
+!
+
+hostName:name port:portNr
+    address := Socket ipAddressOfHost:name.
+    port := portNr
+
+    "
+     IPSocketAddress hostName:'exept' port:10
+    "
 ! !
 
 !IPSocketAddress methodsFor:'printing & storing'!
@@ -143,5 +154,5 @@
 !IPSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.8 1999-09-02 15:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.9 1999-09-20 23:52:58 cg Exp $'
 ! !