--- a/Set.st	Fri Jan 24 21:45:13 1997 +0100
+++ b/Set.st	Fri Jan 24 21:53:11 1997 +0100
@@ -17,7 +17,14 @@
 	category:'Collections-Unordered'
 !
 
-!Set  class methodsFor:'documentation'!
+Object subclass:#DeletedEntry
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Set
+!
+
+!Set class methodsFor:'documentation'!
 
 copyright
 "
@@ -79,19 +86,21 @@
 "
 ! !
 
-!Set  class methodsFor:'initialization'!
+!Set class methodsFor:'initialization'!
 
 initialize
     "initialize the Set class"
 
     DeletedEntry isNil ifTrue:[
-	DeletedEntry := Object new
+        DeletedEntry := DeletedEntry new
     ].
 
     "Set initialize"
+
+    "Modified: 24.1.1997 / 21:09:00 / cg"
 ! !
 
-!Set  class methodsFor:'instance creation'!
+!Set class methodsFor:'instance creation'!
 
 new
     "return a new empty Set"
@@ -109,7 +118,7 @@
     ^ self basicNew setTally:(anInteger * 4 // 3)
 ! !
 
-!Set  class methodsFor:'queries'!
+!Set class methodsFor:'queries'!
 
 goodSizeFrom:arg 
     "return a good array size for the given argument.
@@ -669,9 +678,9 @@
     ^ tally
 ! !
 
-!Set  class methodsFor:'documentation'!
+!Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.40 1996-11-12 15:13:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.41 1997-01-24 20:53:11 cg Exp $'
 ! !
 Set initialize!