--- a/EncodedStream.st	Sat Jan 16 11:26:37 2010 +0000
+++ b/EncodedStream.st	Mon Feb 01 10:03:06 2010 +0000
@@ -83,6 +83,15 @@
     encoder := something.
 !
 
+pathName
+    "if our base stream hat a pathname, delegate..."
+
+    stream isNil ifTrue:[
+        ^ nil.
+    ].
+    ^ stream pathName.
+!
+
 readStream
     ^ self
 !
@@ -232,11 +241,12 @@
 !EncodedStream class methodsFor:'documentation'!
 
 version
-    ^ '$Id: EncodedStream.st 10489 2009-12-27 20:16:54Z vranyj1 $'
+    ^ '$Id: EncodedStream.st 10496 2010-02-01 10:03:06Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.16 2009/12/11 16:54:29 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.17 2010/01/18 13:55:20 stefan Exp §'
 ! !
 
 
+