--- a/ReadStream.st	Mon Nov 08 03:29:58 1993 +0100
+++ b/ReadStream.st	Mon Nov 08 03:32:43 1993 +0100
@@ -25,7 +25,7 @@
 ReadStream defines protocol for reading streamwise over collections. Code here
 is specially tuned for streaming over strings.
 
-$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.4 1993-10-13 02:13:25 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.5 1993-11-08 02:31:45 claus Exp $
 '!
 
 !ReadStream methodsFor:'access-reading'!
@@ -444,5 +444,7 @@
 !ReadStream methodsFor:'access-writing'!
 
 nextPut:anElement
-    ^ self error:'ReadStreams cannot write'
+    "catch write access to readstreams - report an error"
+
+    self shouldNotImplement
 ! !