--- a/CacheDictionary.st	Fri Feb 28 16:19:49 1997 +0100
+++ b/CacheDictionary.st	Sat Mar 01 01:00:33 1997 +0100
@@ -66,9 +66,13 @@
      probe|
 
     length := keyArray basicSize.
-    startIndex := key hash * 2 \\ length + 1.
+    index := key hash.
+    index < 16r1FFFFFFF ifTrue:[
+        index := index * 2
+    ].
+    index := index \\ length + 1.
+    startIndex := index.
 
-    index := startIndex.
     [true] whileTrue:[
         probe := keyArray basicAt:index.
         probe = key ifTrue:[^ index].
@@ -101,7 +105,7 @@
 
     ]
 
-    "Modified: 30.1.1997 / 15:16:25 / cg"
+    "Modified: 1.3.1997 / 00:59:55 / cg"
 !
 
 fullCheck
@@ -115,5 +119,5 @@
 !CacheDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.16 1997-01-30 14:38:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.17 1997-03-01 00:00:33 cg Exp $'
 ! !