diff --git a/lwt-2.3.2-ocaml-4.patch b/lwt-2.3.2-ocaml-4.patch
new file mode 100644
index 0000000..c0983ec
--- /dev/null
+++ b/lwt-2.3.2-ocaml-4.patch
@@ -0,0 +1,22 @@
+diff -ur lwt-2.3.2.old/src/unix/lwt_unix.ml lwt-2.3.2/src/unix/lwt_unix.ml
+--- lwt-2.3.2.old/src/unix/lwt_unix.ml	2011-11-04 16:49:06.000000000 +0000
++++ lwt-2.3.2/src/unix/lwt_unix.ml	2012-06-11 13:07:53.595590313 +0100
+@@ -575,6 +575,7 @@
+   | O_DSYNC
+   | O_SYNC
+   | O_RSYNC
++  | O_SHARE_DELETE
+ 
+ #if windows
+ 
+diff -ur lwt-2.3.2.old/src/unix/lwt_unix.mli lwt-2.3.2/src/unix/lwt_unix.mli
+--- lwt-2.3.2.old/src/unix/lwt_unix.mli	2011-11-04 16:49:06.000000000 +0000
++++ lwt-2.3.2/src/unix/lwt_unix.mli	2012-06-11 13:07:32.290246725 +0100
+@@ -309,6 +309,7 @@
+   | O_DSYNC
+   | O_SYNC
+   | O_RSYNC
++  | O_SHARE_DELETE
+ 
+ val openfile : string -> open_flag list -> file_perm -> file_descr Lwt.t
+   (** Wrapper for [Unix.openfile]. *)
diff --git a/ocaml-lwt.spec b/ocaml-lwt.spec
index 664621a..cd2014a 100644
--- a/ocaml-lwt.spec
+++ b/ocaml-lwt.spec
@@ -3,7 +3,7 @@
 
 Name:           ocaml-lwt
 Version:        2.3.2
-Release:        3%{?dist}
+Release:        4%{?dist}
 Summary:        OCaml lightweight thread library
 
 Group:          Development/Libraries
@@ -17,6 +17,8 @@ ExcludeArch:    sparc64 s390 s390x
 # so we need to patch the source accordingly.
 Patch0:         lwt-2.3.2-libev.patch
 
+Patch1:         lwt-2.3.2-ocaml-4.patch
+
 BuildRequires:  ocaml >= 3.10.0
 BuildRequires:  ocaml-findlib-devel
 BuildRequires:  ocaml-ocamldoc
@@ -51,6 +53,7 @@ developing applications that use %{name}.
 %setup -q -n lwt-%{version}
 
 %patch0 -p1
+%patch1 -p1
 
 mv README README.old
 iconv -f iso-8859-1 -t utf-8 < README.old > README
@@ -101,6 +104,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Mon Jun 11 2012 Richard W.M. Jones <rjones@redhat.com> - 2.3.2-4
+- Patch for OCaml 4.00.0.
+
 * Sun Jun 10 2012 Richard W.M. Jones <rjones@redhat.com> - 2.3.2-3
 - Rebuild for OCaml 4.00.0.