--- a/EncodedStream.st	Thu Aug 01 12:46:13 2013 +0200
+++ b/EncodedStream.st	Thu Aug 01 12:55:14 2013 +0200
@@ -12,10 +12,10 @@
 "{ Package: 'stx:libbasic' }"
 
 PeekableStream subclass:#EncodedStream
-	instanceVariableNames:'encoder stream'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Streams-Misc'
+        instanceVariableNames:'encoder stream'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Streams-Misc'
 !
 
 !EncodedStream class methodsFor:'documentation'!
@@ -107,6 +107,14 @@
     encoder := something.
 !
 
+inputStream
+    ^ stream inputStream
+!
+
+lineNumber
+    ^ stream lineNumber
+!
+
 pathName
     "if our base stream hat a pathname, delegate..."
 
@@ -358,11 +366,11 @@
 !EncodedStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.31 2013-08-01 10:46:13 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.31 2013-08-01 10:46:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.32 2013-08-01 10:55:14 cg Exp $'
 !
 
 version_SVN