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