--- a/ZipArchive.st	Tue Dec 13 11:32:34 2016 +0100
+++ b/ZipArchive.st	Thu Dec 15 13:53:29 2016 +0100
@@ -5183,6 +5183,13 @@
      - we do not know here how to do it, it must be redefined in subclass"
 
     self shouldNotImplement
+!
+
+peek
+    "return the next element of the stream
+     - we do not know here how to do it, it must be redefined in subclass"
+
+    self shouldNotImplement
 ! !
 
 !ZipArchive::ZipWriteStream methodsFor:'writing'!