diff --git a/devkit.opam b/devkit.opam
index 525ec03..208825e 100644
--- a/devkit.opam
+++ b/devkit.opam
@@ -17,11 +17,12 @@ depends: [
   "ounit2"
   "camlzip"
   "libevent" {>= "0.8.0"}
-  "ocurl" {>= "0.7.2"}
+  "curl" {>= "0.10.0"}
+  "curl_lwt"
   "pcre2" {>= "8.0.3"}
   "trace" {>= "0.12"}
   "extunix" {>= "0.1.4"}
-  "lwt" {>= "5.7.0"}
+  "lwt" {>= "5.10.0"}
   "lwt_ppx"
   "base-bytes"
   "base-unix"
diff --git a/lwt_engines.ml b/lwt_engines.ml
index 3802e29..035903d 100644
--- a/lwt_engines.ml
+++ b/lwt_engines.ml
@@ -30,6 +30,8 @@ method poll fds timeout =
   l
 end
 
+type Lwt_engine.engine_id += Engine_id__Devkit_libevent
+
 (** libevent-based engine for lwt *)
 class libevent =
 let once_block = Ev.[ONCE] in
@@ -37,6 +39,8 @@ let once_nonblock = Ev.[ONCE;NONBLOCK] in
 object(self)
   inherit Lwt_engine.abstract
 
+  method! id = Engine_id__Devkit_libevent
+
   val events_ = Ev.init ()
   val mutable pid = Unix.getpid ()
   method events =
diff --git a/prelude.ml b/prelude.ml
index ec457e2..c13e44a 100644
--- a/prelude.ml
+++ b/prelude.ml
@@ -61,6 +61,13 @@ let call_me_maybe f x =
   and poll is guaranteed to be available without the fd limitation.
 *)
 let () =
-  if not (Lwt_config._HAVE_LIBEV && Lwt_config.libev_default) then begin
+  match Lwt_engine.id () with
+  | Lwt_engine.Engine_id__libev _ -> ()
+  | Lwt_engine.Engine_id__select ->
+    (* Otherwise, prefer poll over select, because select can only monitor fds up to 1024,
+       and poll is guaranteed to be available without the fd limitation. *)
     Lwt_engine.set @@ new Lwt_engines.poll
-  end
+  | Lwt_engine.Engine_id__poll -> ()
+  | lwteng ->
+      eprintfn "Unknown Lwt engine (%s) in use, leaving as is" Obj.Extension_constructor.(name (of_val lwteng));
+      ()