--- a/SocketAddress.st	Mon Jun 15 14:43:41 2009 +0200
+++ b/SocketAddress.st	Wed Jun 17 18:26:13 2009 +0200
@@ -140,7 +140,9 @@
 hostName:name
     "get a new instance given a hostname"
 
-    ^ self hostName:name serviceName:nil type:nil
+    ^ self hostName:name serviceName:nil type:nil.
+
+    "Modified: / 17-06-2009 / 15:25:42 / sr"
 !
 
 hostName:name port:portNr
@@ -174,6 +176,8 @@
      SocketAddress allForHostName:'localhost' serviceName:10 type:#stream.
      SocketAddress allForHostName:'www.google.com' serviceName:10 type:#stream.
     "
+
+    "Modified: / 17-06-2009 / 15:25:35 / sr"
 !
 
 new
@@ -728,5 +732,5 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.30 2009-06-10 17:15:02 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.31 2009-06-17 16:26:13 sr Exp $'
 ! !