--- a/WriteStream.st	Tue Nov 11 15:03:47 1997 +0100
+++ b/WriteStream.st	Tue Nov 11 15:04:11 1997 +0100
@@ -194,6 +194,14 @@
     "Created: 14.10.1997 / 20:44:37 / cg"
 !
 
+isReadable 
+    "return true if the receiver supports reading - thats not true"
+
+    ^ false
+
+    "Created: / 8.11.1997 / 14:06:07 / cg"
+!
+
 isWritable
     "return true, if writing is supported by the recevier.
      Always return true here"
@@ -408,5 +416,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.40 1997-11-02 18:37:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.41 1997-11-11 14:04:11 cg Exp $'
 ! !