--- a/EncodedStream.st	Tue Jul 13 14:20:20 2004 +0200
+++ b/EncodedStream.st	Tue Jul 13 15:10:20 2004 +0200
@@ -12,7 +12,7 @@
 
 "{ Package: 'stx:libbasic' }"
 
-Stream subclass:#EncodedStream
+PeekableStream subclass:#EncodedStream
 	instanceVariableNames:'encoder stream'
 	classVariableNames:''
 	poolDictionaries:''
@@ -136,5 +136,5 @@
 !EncodedStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.8 2004-07-13 08:39:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.9 2004-07-13 13:10:20 stefan Exp $'
 ! !