--- a/WeakIdentitySet.st	Wed Jan 15 12:03:05 2003 +0100
+++ b/WeakIdentitySet.st	Fri Jan 17 11:46:51 2003 +0100
@@ -237,13 +237,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.
@@ -298,5 +292,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.31 2002-02-26 12:58:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.32 2003-01-17 10:46:24 cg Exp $'
 ! !