--- a/Stream.st	Thu Aug 01 10:22:20 2013 +0100
+++ b/Stream.st	Thu Aug 08 11:09:31 2013 +0100
@@ -194,7 +194,6 @@
     ^ ChunkSeparator
 ! !
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -1833,6 +1832,14 @@
 
 !Stream methodsFor:'queries'!
 
+inputStream
+    "return the receiver.
+     for compatibility with filtering streams"
+
+    self isReadable ifFalse:[ ^ nil ].
+    ^ self
+!
+
 isBinary
     "return true, if in binary mode. Always returns false here,
      to make internalStreams protocol compatible with externalStreams."
@@ -1881,11 +1888,10 @@
 !
 
 lineNumber
-    "return the current lineNumber if known"
+    "return the current lineNumber if known
+     (for compatibility with LineNumberReadStream)"
 
     ^ nil
-
-
 !
 
 numberOfTerminalCols
@@ -1896,6 +1902,14 @@
     ^ 24
 !
 
+outputStream
+    "return the receiver.
+     for compatibility with filtering streams"
+
+    self isWritable ifFalse:[ ^ nil ].
+    ^ self
+!
+
 pageFormat
     "return the pageFormat - nil here.
      This has NO meaning whatsoever to regular streams;
@@ -3304,11 +3318,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.201 2013-06-12 08:37:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.203 2013-08-01 10:42:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.201 2013-06-12 08:37:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.203 2013-08-01 10:42:50 cg Exp $'
 ! !