--- a/IdentityDictionary.st	Thu Nov 28 18:47:01 2002 +0100
+++ b/IdentityDictionary.st	Fri Nov 29 12:08:54 2002 +0100
@@ -92,12 +92,7 @@
 "/    ].
 "/
 
-    index := key identityHash.
-    index < 16r1FFFFFFF ifTrue:[
-        index := index * 2
-    ].
-    index := index \\ length + 1.
-    startIndex := index.
+    startIndex := index := self initialIndexForKey:key.
 
     [true] whileTrue:[
         probe := keyArray basicAt:index.
@@ -126,12 +121,7 @@
     delIndex := 0.
 
     length := keyArray basicSize.
-    index := key identityHash.
-    index < 16r1FFFFFFF ifTrue:[
-        index := index * 2
-    ].
-    index := index \\ length + 1.
-    startIndex := index.
+    startIndex := index := self initialIndexForKey:key.
 
     [true] whileTrue:[
         probe := keyArray basicAt:index.
@@ -201,5 +191,5 @@
 !IdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentityDictionary.st,v 1.29 2001-12-21 10:59:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentityDictionary.st,v 1.30 2002-11-29 11:08:54 cg Exp $'
 ! !