--- a/ZipArchive.st	Mon Aug 26 23:13:16 2019 +0200
+++ b/ZipArchive.st	Mon Aug 26 23:13:43 2019 +0200
@@ -5404,7 +5404,8 @@
 
     uncompressedDataSize := uncompressedDataSize + 1.
     crc32 := ZipStream crc32Add:anObject crc:crc32.
-    compressingStream nextPut:anObject
+    compressingStream nextPut:anObject.
+    ^ anObject
 !
 
 nextPutAll:aCollection