--- a/UDSocketAddress.st	Fri Mar 28 13:47:59 2008 +0100
+++ b/UDSocketAddress.st	Fri Mar 28 13:48:09 2008 +0100
@@ -128,8 +128,18 @@
 !
 
 port
-    "ccompatibility with inet sockets"
+    "compatibility with inet sockets"
+
+    ^ self name
+!
 
+port:pathName
+    "compatibility with inet sockets"
+
+    self name:pathName
+!
+
+portOrName
     ^ self name
 ! !
 
@@ -145,14 +155,6 @@
 
 hostName:hostOrPathName port:portNrOrName
     self name:hostOrPathName
-!
-
-port:pathName
-    self name:pathName
-!
-
-portOrName
-    ^ self name
 ! !
 
 !UDSocketAddress methodsFor:'printing & storing'!
@@ -177,5 +179,5 @@
 !UDSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UDSocketAddress.st,v 1.15 2007-11-08 14:03:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UDSocketAddress.st,v 1.16 2008-03-28 12:48:09 stefan Exp $'
 ! !