--- a/SocketAddress.st	Mon Mar 02 02:07:30 2015 +0100
+++ b/SocketAddress.st	Mon Mar 02 23:42:44 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -676,6 +678,15 @@
     self subclassResponsibility
 ! !
 
+!SocketAddress methodsFor:'comparing'!
+
+hasSameHostAddress:aSocketAddress
+    "answer true, if myself and aSocketAddress have the same host address
+     (but possibly different ports)."
+
+    ^ self subclassResponsibility
+! !
+
 !SocketAddress methodsFor:'hashing'!
 
 hash
@@ -849,10 +860,10 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.47 2015-01-23 23:02:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.48 2015-03-02 22:42:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.47 2015-01-23 23:02:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.48 2015-03-02 22:42:44 stefan Exp $'
 ! !