--- a/Set.st	Tue Nov 12 15:45:15 1996 +0100
+++ b/Set.st	Tue Nov 12 16:13:57 1996 +0100
@@ -397,7 +397,10 @@
 "/  ].
 
     index := key hash.
-    index := index * 2 \\ length + 1.
+    index < 16r1FFFFFFF ifTrue:[
+        index := index * 2
+    ].
+    index := index \\ length + 1.
     startIndex := index.
 
     [true] whileTrue:[
@@ -428,7 +431,10 @@
 
     length := keyArray basicSize.
     index := key hash.
-    index := index * 2 \\ length + 1.
+    index < 16r1FFFFFFF ifTrue:[
+        index := index * 2
+    ].
+    index := index \\ length + 1.
     startIndex := index.
 
     [true] whileTrue:[
@@ -476,7 +482,10 @@
 
     length := keyArray basicSize.
     index := key hash.
-    index := index * 2 \\ length + 1.
+    index < 16r1FFFFFFF ifTrue:[
+        index := index * 2
+    ].
+    index := index \\ length + 1.
     startIndex := index.
 
     [(keyArray basicAt:index) notNil] whileTrue:[
@@ -663,6 +672,6 @@
 !Set  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.39 1996-11-12 14:04:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.40 1996-11-12 15:13:57 cg Exp $'
 ! !
 Set initialize!