diff --git a/Data/Conduit/Zlib.hs b/Data/Conduit/Zlib.hs
--- a/Data/Conduit/Zlib.hs
+++ b/Data/Conduit/Zlib.hs
@@ -139,7 +139,7 @@
         mchunk <- unsafeLiftIO $ finishDeflate def
         return $ case mchunk of
             Nothing -> Done Nothing ()
-            Just chunk -> HaveOutput (Done Nothing ()) (return ()) (Chunk chunk)
+            Just chunk -> HaveOutput (close def) (return ()) (Chunk chunk)
 
 goPopper :: (MonadUnsafeIO m, MonadThrow m)
          => (input -> Conduit input m output)
diff --git a/zlib-conduit.cabal b/zlib-conduit.cabal
--- a/zlib-conduit.cabal
+++ b/zlib-conduit.cabal
@@ -1,5 +1,5 @@
 Name:                zlib-conduit
-Version:             0.4.0.1
+Version:             0.4.0.2
 Synopsis:            Streaming compression/decompression via conduits.
 Description:         Streaming compression/decompression via conduits.
 License:             BSD3