--- a/PositionableStream.st	Wed May 30 16:13:53 2007 +0200
+++ b/PositionableStream.st	Wed May 30 16:14:06 2007 +0200
@@ -616,6 +616,14 @@
     ^ readLimit == 0
 !
 
+isInternalByteStream
+    "return true, if the stream is an internal stream reading bytes"
+
+    ^ collection class isBytes
+
+    "Created: / 30-05-2007 / 16:16:12 / cg"
+!
+
 isPositionable
     "return true, if the stream supports positioning (this one is)"
 
@@ -625,7 +633,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.149 2007-01-24 16:22:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.150 2007-05-30 14:14:06 cg Exp $'
 ! !
 
 PositionableStream initialize!