--- a/ProfileTree.st	Fri Mar 21 10:20:36 1997 +0100
+++ b/ProfileTree.st	Fri Mar 21 14:02:40 1997 +0100
@@ -479,11 +479,12 @@
     "return true, if the argument tree is for the same method invocation"
 
     class notNil ifTrue:[
-        ^ selector identityHash + class identityHash
+        ^ selector identityHash bitXor: class identityHash
     ].
-    ^ selector identityHash + receiver identityHash
+    ^ selector identityHash bitXor: receiver identityHash
 
     "Created: 20.3.1997 / 20:27:15 / cg"
+    "Modified: 21.3.1997 / 14:02:27 / cg"
 !
 
 sameMethodAsIn:aProfileTreeNode
@@ -499,5 +500,5 @@
 !ProfileTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.18 1997-03-20 20:47:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProfileTree.st,v 1.19 1997-03-21 13:02:40 cg Exp $'
 ! !