--- a/IPSocketAddress.st	Thu Aug 01 20:47:02 2013 +0200
+++ b/IPSocketAddress.st	Wed Aug 07 18:06:08 2013 +0200
@@ -110,12 +110,11 @@
 localHost
     "get a new instance representing the local-host address as seen internally"
 
-    ^ self hostAddress:(self local) port:self anyPort
+    ^ self hostAddress:self local
 
     "
      self localHost
      self localHost hostName
-     self hostName:(OperatingSystem getHostName)      
     "
 
     "Modified: / 04-06-2007 / 21:34:22 / cg"
@@ -587,10 +586,10 @@
 !IPSocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.39 2013-07-16 07:34:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.40 2013-08-07 16:06:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.39 2013-07-16 07:34:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/IPSocketAddress.st,v 1.40 2013-08-07 16:06:08 cg Exp $'
 ! !