--- a/UndefinedObject.st	Fri Jul 16 11:39:45 1993 +0200
+++ b/UndefinedObject.st	Mon Oct 04 11:32:33 1993 +0100
@@ -140,3 +140,13 @@
 
     ^ 'nil'
 ! !
+
+!UndefinedObject methodsFor:'binary storage'!
+
+hasSpecialBinaryRepresentation
+    ^ true
+!
+
+storeBinaryOn: stream manager: manager
+    stream nextPut: (manager codeForNil)
+! !