--- a/IdentitySet.st	Thu Mar 20 21:55:56 1997 +0100
+++ b/IdentitySet.st	Fri Mar 21 10:31:23 1997 +0100
@@ -142,33 +142,6 @@
     "Modified: 26.3.1996 / 20:00:42 / cg"
 !
 
-findNil:key
-    "Look for the next slot usable for key.  This method assumes that
-     key is not already in the receiver - used only while growing/rehashing"
-
-    |index  "{ Class:SmallInteger }"
-     length|
-
-    length := keyArray basicSize.
-    index := key identityHash.
-    index < 16r1FFFFFFF ifTrue:[
-        index := index * 2
-    ].
-    index := index \\ length + 1.
-
-    [(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
-
-!
-
 hashFor:aKey
     "return an initial index given a key."
 
@@ -180,5 +153,5 @@
 !IdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.21 1997-03-19 15:00:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.22 1997-03-21 09:31:23 cg Exp $'
 ! !