--- a/ZipStream.st	Tue Dec 11 21:28:13 2018 +0100
+++ b/ZipStream.st	Tue Dec 18 12:52:15 2018 +0100
@@ -227,12 +227,24 @@
 
 !ZipStream class methodsFor:'ZipInterface compatibility - compress/uncompress'!
 
-compress: aUncompressedByteArray into: aCompressedByteArray
+compress:anUncompressedByteArrayOrString into:aCompressedByteArrayOrString
     ^ self 
-        flatBytesIn: aUncompressedByteArray
-        from: 1 to: (aUncompressedByteArray size)
-        into: aCompressedByteArray
-        doCompress: true.
+        flatBytesIn:anUncompressedByteArrayOrString
+        from:1 to:(anUncompressedByteArrayOrString size)
+        into:aCompressedByteArrayOrString
+        doCompress:true.
+
+    "
+     |buffer len1 len2 compressed uncompressed|
+     buffer := String new:100.
+     len1 := self compress:'hello world hello world hello world hello world hello world' into:buffer.
+     compressed := buffer copyTo:len1.
+
+     len2 := self uncompress:compressed into:buffer.
+     uncompressed := buffer copyTo:len2.
+    "
+
+    "Modified (format): / 18-12-2018 / 12:53:17 / Claus Gittinger"
 !
 
 flatBytesIn:bytesIn from:start to:stop into:bytesOut doCompress:doCompress
@@ -295,12 +307,14 @@
     self error:('compressing error: ', errorNr printString).
 !
 
-uncompress: aCompressedByteArray into: anUncompressedByteArray
+uncompress:aCompressedByteArrayOrString into:anUncompressedByteArrayOrString
     ^ self 
-        flatBytesIn: aCompressedByteArray
-        from: 1 to: (aCompressedByteArray size)
-        into: anUncompressedByteArray
-        doCompress: false.
+        flatBytesIn:aCompressedByteArrayOrString
+        from:1 to:(aCompressedByteArrayOrString size)
+        into:anUncompressedByteArrayOrString
+        doCompress:false.
+
+    "Modified (format): / 18-12-2018 / 12:53:09 / Claus Gittinger"
 ! !
 
 !ZipStream class methodsFor:'ZipInterface compatibility - crc'!