diff --git a/cohttp-mirage/src/client.ml b/cohttp-mirage/src/client.ml
index a9ed9425a4..623bb3556e 100644
--- a/cohttp-mirage/src/client.ml
+++ b/cohttp-mirage/src/client.ml
@@ -45,7 +45,9 @@ module Net_IO = struct
 
   let close_in _ = ()
   let close_out _ = ()
-  let close ic _oc = Lwt.ignore_result (Channel.close ic)
+  let close ic _oc = Lwt.ignore_result @@ Lwt.catch
+    (fun () -> Channel.close ic)
+    (fun e  -> Lwt.return @@ Ok ())
 
 end
 let ctx resolver conduit = { Net_IO.resolver; conduit }