--- a/Set.st	Sun Feb 28 18:15:38 1999 +0100
+++ b/Set.st	Mon Mar 01 16:59:06 1999 +0100
@@ -19,7 +19,7 @@
 
 Object subclass:#EmptySlot
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'TheOneAndOnlyInstance'
 	poolDictionaries:''
 	privateIn:Set
 !
@@ -790,9 +790,27 @@
     ^ tally
 ! !
 
+!Set::EmptySlot class methodsFor:'instance creation'!
+
+basicNew
+    TheOneAndOnlyInstance isNil ifTrue:[
+        TheOneAndOnlyInstance := super basicNew
+    ].
+    ^ TheOneAndOnlyInstance
+
+!
+
+new
+    TheOneAndOnlyInstance isNil ifTrue:[
+        TheOneAndOnlyInstance := super basicNew
+    ].
+    ^ TheOneAndOnlyInstance
+
+! !
+
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.57 1998-08-05 08:47:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.58 1999-03-01 15:59:06 cg Exp $'
 ! !
 Set initialize!