--- a/EncodedStream.st	Thu Aug 01 10:22:20 2013 +0100
+++ b/EncodedStream.st	Thu Aug 08 11:09:31 2013 +0100
@@ -104,6 +104,14 @@
     encoder := something.
 !
 
+inputStream
+    ^ stream inputStream
+!
+
+lineNumber
+    ^ stream lineNumber
+!
+
 pathName
     "if our base stream hat a pathname, delegate..."
 
@@ -442,7 +450,15 @@
 
 !EncodedStream methodsFor:'testing'!
 
- !
+
+
+isReadable
+    ^ stream isReadable
+!
+
+isWritable
+    ^ stream isWritable
+! !
 
 !EncodedStream methodsFor:'utilities'!
 
@@ -486,11 +502,11 @@
 !EncodedStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.30 2013-07-30 19:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.32 2013-08-01 10:55:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.30 2013-07-30 19:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.32 2013-08-01 10:55:14 cg Exp $'
 !
 
 version_HG