--- a/Set.st	Wed Dec 20 19:56:35 2000 +0100
+++ b/Set.st	Wed Dec 20 19:58:35 2000 +0100
@@ -654,20 +654,20 @@
     ].
     index := index \\ length + 1.
 
-    index := keyArray identityIndexOf:nil startingAt:index.
-    index == 0 ifTrue:[
-        index := keyArray identityIndexOf:nil startingAt:1 endingAt:index.
+"/    index := keyArray identityIndexOf:nil startingAt:index.
+"/    index == 0 ifTrue:[
+"/        index := keyArray identityIndexOf:nil startingAt:1 endingAt:index.
+"/    ].
+    "/ that code is completely inlined by stc ...
+    [(keyArray basicAt:index) notNil] whileTrue:[
+        index == length ifTrue:[
+            index := 1
+        ] ifFalse:[
+            index := index + 1
+        ].
+        "notice: no check for no nil found - we must find one since
+         this is only called after growing"
     ].
-
-"/    [(keyArray basicAt:index) notNil] whileTrue:[
-"/        index == length ifTrue:[
-"/            index := 1
-"/        ] ifFalse:[
-"/            index := index + 1
-"/        ].
-"/        "notice: no check for no nil found - we must find one since
-"/         this is only called after growing"
-"/    ].
     ^ index
 
     "Modified: 21.3.1997 / 10:32:58 / cg"
@@ -1024,6 +1024,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.68 2000-12-20 18:56:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.69 2000-12-20 18:58:35 cg Exp $'
 ! !
 Set initialize!