--- a/CompressionStream.st	Wed Mar 13 20:14:55 2019 +0100
+++ b/CompressionStream.st	Wed Mar 13 20:15:10 2019 +0100
@@ -121,6 +121,19 @@
     binary := true.
 !
 
+binary:beBinaryBool
+    "ExternalStream protocol compatibility:
+     switch to binary or text mode - default is text"
+
+    |wasBinary|
+
+    wasBinary := binary.
+    binary := beBinaryBool.
+    ^ wasBinary
+
+    "Created: / 13-03-2019 / 19:17:20 / Stefan Vogel"
+!
+
 propagateClose
     ^ propagateClose
 !