--- a/WriteStream.st	Wed May 15 18:09:14 1996 +0200
+++ b/WriteStream.st	Thu May 16 14:46:53 1996 +0200
@@ -133,7 +133,12 @@
 !WriteStream methodsFor:'queries'!
 
 isWritable
+    "return true, if writing is supported by the recevier.
+     Always return true here"
+
     ^ true
+
+    "Modified: 16.5.1996 / 14:44:49 / cg"
 ! !
 
 !WriteStream methodsFor:'reading'!
@@ -292,5 +297,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.27 1996-05-14 15:40:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.28 1996-05-16 12:46:53 cg Exp $'
 ! !