diff --git a/ocaml/libs/http-lib/http_client.ml b/ocaml/libs/http-lib/http_client.ml
index 8e8c5cd2d44..c79141ffd88 100644
--- a/ocaml/libs/http-lib/http_client.ml
+++ b/ocaml/libs/http-lib/http_client.ml
@@ -188,6 +188,9 @@ let response_of_fd ?(use_fastpath = false) fd =
   | Unix.Unix_error (_, _, _) as e ->
       raise e
   | e ->
+      Backtrace.is_important e ;
+      let bt = Backtrace.get e in
+      Debug.log_backtrace e bt ;
       D.debug "%s: returning no response because of the exception: %s"
         __FUNCTION__ (Printexc.to_string e) ;
       None