--- a/ObjectCoder.st	Tue Sep 19 21:04:37 2000 +0200
+++ b/ObjectCoder.st	Wed Sep 20 10:32:51 2000 +0200
@@ -275,7 +275,8 @@
 !ObjectCoder methodsFor:'private - accessing'!
 
 stream:aStream
-    stream := aStream
+    stream := aStream.
+    stream signalAtEnd:true.
 
 
 
@@ -284,5 +285,5 @@
 !ObjectCoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.3 2000-09-14 12:25:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.4 2000-09-20 08:32:51 stefan Exp $'
 ! !