--- a/SocketAddress.st	Sat Mar 06 14:19:41 2010 +0100
+++ b/SocketAddress.st	Sat Mar 06 14:29:51 2010 +0100
@@ -630,6 +630,14 @@
     self subclassResponsibility
 ! !
 
+!SocketAddress methodsFor:'hashing'!
+
+hash
+    "generate a SmallInteger hash for the socket address - use all the bytes"
+
+    ^ self computeXorHashFrom:1 to:0
+! !
+
 !SocketAddress methodsFor:'printing & storing'!
 
 displayString
@@ -750,9 +758,9 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.33 2009-11-16 15:46:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.34 2010-03-06 13:29:51 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.33 2009-11-16 15:46:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.34 2010-03-06 13:29:51 stefan Exp $'
 ! !