--- a/EncodedStream.st	Mon Sep 19 08:39:59 2016 +0100
+++ b/EncodedStream.st	Mon Sep 19 08:46:27 2016 +0100
@@ -380,6 +380,10 @@
     stream flush
 !
 
+isEmpty
+    ^ stream isEmpty
+!
+
 isOpen
     ^ stream notNil and:[stream isOpen]
 !
@@ -499,7 +503,8 @@
 !
 
 size
-    "not correct, but probably better than 0"
+    "not always correct, but probably better than 0.
+     Better use #isEmpty."
 
     "/ is that better?
     "/ self error:'size of input is unknown (due to decoding)'