--- a/ObjectCoder.st	Tue Jun 25 16:01:05 2002 +0200
+++ b/ObjectCoder.st	Tue Jul 02 14:33:03 2002 +0200
@@ -117,7 +117,7 @@
     "answer the encoded argument anObject"
 
     stream isNil ifTrue:[
-        stream := self emptyStream.
+        stream := self emptyWriteStream.
     ] ifFalse:[
         stream reset.
     ].
@@ -154,13 +154,10 @@
 
 !
 
-emptyStream
-    "answer an empty stream"
+emptyWriteStream
+    "answer an empty stream for writing the encoded object"
 
-    ^ (ByteArray new:20) writeStream.
-    "
-        ^ self subclassResponsibility
-    "
+    ^ self subclassResponsibility
 !
 
 flush
@@ -193,5 +190,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.7 2002-06-25 14:01:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.8 2002-07-02 12:33:03 stefan Exp $'
 ! !