diff --git a/lwt/cohttp_lwt_unix.ml b/lwt/cohttp_lwt_unix.ml
index 20fadec99d..86ea1c4f1b 100644
--- a/lwt/cohttp_lwt_unix.ml
+++ b/lwt/cohttp_lwt_unix.ml
@@ -83,8 +83,8 @@ module Server = struct
         respond_not_found ()
       | exn -> Lwt.fail exn)
 
-  let create ?timeout ?stop ?(ctx=Cohttp_lwt_unix_net.default_ctx)
+  let create ?timeout ?stop ?on_exn ?(ctx=Cohttp_lwt_unix_net.default_ctx)
         ?(mode=`TCP (`Port 8080)) spec =
-    Conduit_lwt_unix.serve ?timeout ?stop ~ctx:ctx.Cohttp_lwt_unix_net.ctx
+    Conduit_lwt_unix.serve ?timeout ?stop ?on_exn ~ctx:ctx.Cohttp_lwt_unix_net.ctx
       ~mode (callback spec)
 end
diff --git a/lwt/cohttp_lwt_unix.mli b/lwt/cohttp_lwt_unix.mli
index 0d06c8177a..0cc9a07fc1 100644
--- a/lwt/cohttp_lwt_unix.mli
+++ b/lwt/cohttp_lwt_unix.mli
@@ -68,6 +68,7 @@ module Server : sig
   val create :
     ?timeout:int ->
     ?stop:unit Lwt.t ->
+    ?on_exn:(exn -> unit) ->
     ?ctx:Cohttp_lwt_unix_net.ctx ->
     ?mode:Conduit_lwt_unix.server -> t -> unit Lwt.t
 end