--- a/ZipArchive.st	Tue Oct 22 14:39:17 2019 +0200
+++ b/ZipArchive.st	Tue Oct 22 19:29:47 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -5296,6 +5298,23 @@
 
     peek := compressingStream next.
     ^ peek.
+!
+
+peekOrNil
+    "peek a character"
+
+    peek notNil ifTrue:[
+        ^ peek.
+    ].
+
+    readPosition >= uncompressedDataSize ifTrue:[
+        ^ nil.
+    ].
+
+    peek := compressingStream next.
+    ^ peek.
+
+    "Created: / 22-10-2019 / 15:34:43 / Stefan Vogel"
 ! !
 
 !ZipArchive::ZipWriteStream methodsFor:'closing'!