--- a/IdentitySet.st	Mon Jul 03 04:38:27 1995 +0200
+++ b/IdentitySet.st	Sat Jul 22 21:25:26 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.10 1995-02-15 10:24:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.11 1995-07-22 19:22:51 claus Exp $
 '!
 
 !IdentitySet class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.10 1995-02-15 10:24:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.11 1995-07-22 19:22:51 claus Exp $
 "
 !
 
@@ -73,9 +73,10 @@
 	^ keyArray identityIndexOf:key ifAbsent:aBlock.
     ].
 
-    startIndex := key identityHash \\ length + 1.
+    index := key identityHash.
+    index := index \\ length + 1.
+    startIndex := index.
 
-    index := startIndex.
     [true] whileTrue:[
 	probe := (keyArray basicAt:index).
 	probe == key ifTrue:[^ index].
@@ -103,9 +104,10 @@
      length startIndex probe |
 
     length := keyArray basicSize.
-    startIndex := key identityHash \\ length + 1.
+    index := key identityHash.
+    index := index \\ length + 1.
+    startIndex := index.
 
-    index := startIndex.
     [true] whileTrue:[
 	probe := keyArray basicAt:index.
 	(probe isNil or: [key == probe]) ifTrue:[^ index].
@@ -133,7 +135,8 @@
      length|
 
     length := keyArray basicSize.
-    index := key identityHash \\ length + 1.
+    index := key identityHash.
+    index := index \\ length + 1.
 
     [(keyArray basicAt:index) notNil] whileTrue:[
 	index == length ifTrue:[