--- a/WeakIdentityDictionary.st	Wed Jan 15 12:03:05 2003 +0100
+++ b/WeakIdentityDictionary.st	Fri Jan 17 11:46:51 2003 +0100
@@ -229,12 +229,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.
@@ -407,5 +402,5 @@
 !WeakIdentityDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.39 2002-03-21 08:16:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.40 2003-01-17 10:46:34 cg Exp $'
 ! !