--- a/EncodedStream.st	Tue Jul 13 10:39:04 2004 +0200
+++ b/EncodedStream.st	Tue Jul 13 10:39:48 2004 +0200
@@ -93,6 +93,10 @@
     stream nextPutAll:(encoder encodeString:aCollection).
 !
 
+peek
+    ^ stream peek
+!
+
 peekFor:aCharacter
     ^ stream peekFor:aCharacter
 !
@@ -132,5 +136,5 @@
 !EncodedStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.7 2004-03-16 11:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.8 2004-07-13 08:39:48 cg Exp $'
 ! !