--- a/ZipArchive.st	Wed Mar 13 20:15:10 2019 +0100
+++ b/ZipArchive.st	Wed Mar 13 20:20:40 2019 +0100
@@ -4655,6 +4655,14 @@
     compressingStream binary
 !
 
+binary:beBinaryBool
+    "stream protocol compatibility"
+
+    ^ compressingStream binary:beBinaryBool
+
+    "Created: / 13-03-2019 / 19:13:18 / Stefan Vogel"
+!
+
 contentsSpecies
     "return a class of which instances will be returned, when
      parts of the collection are asked for.