--- a/False.st	Fri Jul 16 11:39:45 1993 +0200
+++ b/False.st	Mon Oct 04 11:32:33 1993 +0100
@@ -118,3 +118,9 @@
 
     ^ 'false'
 ! !
+
+!False methodsFor: 'binary storage'!
+
+storeBinaryOn: stream manager: manager
+    stream nextPut: manager codeForFalse
+! !