--- a/CallChain.st	Fri Aug 18 22:23:06 2000 +0200
+++ b/CallChain.st	Sat Aug 19 13:26:10 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic3' }"
+
 Object subclass:#CallChain
 	instanceVariableNames:'receiver selector class isBlock rest'
 	classVariableNames:''
@@ -137,10 +139,17 @@
     ^ class == someInfo methodClass
 
     "Modified: 18.5.1996 / 18:55:47 / cg"
+!
+
+hash
+    "return an integer useful for hashing on the receiver;
+     redefined since = is redefined here."
+
+    ^ (receiver hash bitXor:selector hash) bitXor:class hash
 ! !
 
 !CallChain class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CallChain.st,v 1.12 1996-05-18 17:05:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CallChain.st,v 1.13 2000-08-19 11:26:10 cg Exp $'
 ! !