--- a/Complex.st	Mon Jun 16 17:38:42 2003 +0200
+++ b/Complex.st	Mon Jun 16 17:40:47 2003 +0200
@@ -419,7 +419,12 @@
 hash
     "Hash is implemented because equals is implemented."
 
-    ^ real hash
+    ^ (real hash) bitXor:(imaginary hash bitShift:16)
+
+    "
+     (1+0i) hash 
+     (1+1i) hash
+    "
 ! !
 
 !Complex methodsFor:'converting'!
@@ -720,5 +725,5 @@
 !Complex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Complex.st,v 1.8 2003-06-16 09:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Complex.st,v 1.9 2003-06-16 15:40:47 cg Exp $'
 ! !