--- a/Object.st	Thu Jan 25 16:52:24 1996 +0100
+++ b/Object.st	Thu Jan 25 16:54:40 1996 +0100
@@ -931,6 +931,25 @@
      the object's structure to be reconstructed from the stream's contents"
 
     BinaryOutputManager store:self on:aStream
+
+    "
+     |a s1 s2|
+
+     s1 := 'hello'.
+     s2 := 'world'.
+     a := Array new:5.
+     a at:1 put:s1.
+     a at:2 put:s2.
+     a at:3 put:s1.
+     a at:4 put:s2.
+     a storeBinaryOn:'test.boss'
+    "
+
+    "
+     (BinaryObjectStorage onOld:'test.boss' asFilename readStream)
+	next
+	    inspect
+    "
 !
 
 storeBinaryOn:stream manager:manager
@@ -4234,6 +4253,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.88 1996-01-24 18:20:08 ah Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.89 1996-01-25 15:54:40 cg Exp $'
 ! !
 Object initialize!