diff --git a/src/utils/utils.ml b/src/utils/utils.ml
index b97ef87e1..ef2fe1f48 100644
--- a/src/utils/utils.ml
+++ b/src/utils/utils.ml
@@ -54,7 +54,7 @@ let () =
       | exn ->
           Printf.eprintf "Uncaught (asynchronous) exception: %S\n%s\n%!"
             (Printexc.to_string exn) (Printexc.get_backtrace ());
-          exit 1)
+          Lwt.wakeup exit_wakener 1)
 
 module StringMap = Map.Make (String)