--- a/ObjectCoder.st	Tue Mar 26 15:17:16 2002 +0100
+++ b/ObjectCoder.st	Wed Mar 27 11:51:54 2002 +0100
@@ -85,6 +85,14 @@
     ^ self new encodingOf:anObject with:aParameter
 ! !
 
+!ObjectCoder methodsFor:'accessing'!
+
+contents
+
+    self flush.
+    ^ stream contents
+! !
+
 !ObjectCoder methodsFor:'decoding'!
 
 next
@@ -148,6 +156,13 @@
 
 !
 
+flush
+    "flush possibly internally buffered data.
+     Nothing is done by default. Subclasses may redefine this"
+
+    ^ self
+!
+
 reset
     "reset the coder"
 
@@ -171,5 +186,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.5 2002-02-06 19:10:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.6 2002-03-27 10:51:54 stefan Exp $'
 ! !