--- a/UndefinedObject.st	Fri Feb 25 14:05:47 1994 +0100
+++ b/UndefinedObject.st	Fri Feb 25 14:07:09 1994 +0100
@@ -24,7 +24,7 @@
 
 there is only one instance of this class: nil
 
-$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.7 1994-02-05 12:27:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.8 1994-02-25 13:07:01 claus Exp $
 '!
 
 !UndefinedObject class methodsFor:'instance creation'!
@@ -169,6 +169,20 @@
     "return a string for storing myself"
 
     ^ 'nil'
+!
+
+printOn:aStream
+    "append a printed representation of the receiver to the
+     argument, aStream"
+
+    aStream nextPutAll:'nil'
+!
+
+storeOn:aStream
+    "append a printed representation of the receiver to the
+     argument, aStream, which allows reconstruction of it"
+
+    ^ self printOn:aStream
 ! !
 
 !UndefinedObject methodsFor:'binary storage'!