--- a/Set.st	Fri Jan 24 21:58:45 1997 +0100
+++ b/Set.st	Fri Jan 24 23:11:36 1997 +0100
@@ -17,7 +17,7 @@
 	category:'Collections-Unordered'
 !
 
-Object subclass:#DeletedEntry
+Object subclass:#DeletedEntryMarker
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -92,7 +92,7 @@
     "initialize the Set class"
 
     DeletedEntry isNil ifTrue:[
-        DeletedEntry := DeletedEntry new
+        DeletedEntry := DeletedEntryMarker new
     ].
 
     "Set initialize"
@@ -681,6 +681,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.41 1997-01-24 20:53:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.42 1997-01-24 22:11:06 cg Exp $'
 ! !
 Set initialize!