--- a/IPSocketAddress.st	Fri Mar 28 13:48:09 2008 +0100
+++ b/IPSocketAddress.st	Fri Mar 28 13:48:17 2008 +0100
@@ -361,12 +361,6 @@
     <resource: #obsolete>
 
     ^ self hostAddress
-!
-
-portOrName
-    <resource: #obsolete>
-
-    ^ self port
 ! !
 
 !IPSocketAddress methodsFor:'printing & storing'!
@@ -445,6 +439,10 @@
     "
      (IPSocketAddress hostName:'exept.eu.org') networkClass
     "
+!
+
+portOrName
+    ^ self port
 ! !
 
 !IPSocketAddress methodsFor:'testing'!
@@ -458,5 +456,5 @@
 !IPSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.32 2007-11-08 14:03:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.33 2008-03-28 12:48:17 stefan Exp $'
 ! !