diff --git a/src/utils/lwt_utils.ml b/src/utils/lwt_utils.ml
index 606c825b6..096be11ea 100644
--- a/src/utils/lwt_utils.ml
+++ b/src/utils/lwt_utils.ml
@@ -7,6 +7,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
+(** HACK waiting for Pierre.... *)
+let () = Lwt_unix.set_default_async_method Async_none
+(** END OF HACK waiting for Pierre.... *)
+
 module LC = Lwt_condition
 
 open Lwt.Infix