diff --git a/CHANGES.md b/CHANGES.md
index 36a6fd9a..aa6da4e4 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -17,6 +17,9 @@ next
 - Improve error message for `dune utop` without a library name (#1154, fix
   #1149, @emillon)
 
+- Fix parsing `ocamllex` stanza in jbuild files (#1150, @rgrinberg)
+
+
 1.1.1 (08/08/2018)
 ------------------
 
diff --git a/src/dune_file.ml b/src/dune_file.ml
index 4c3b71e4..f202cf45 100644
--- a/src/dune_file.ml
+++ b/src/dune_file.ml
@@ -1485,18 +1485,19 @@ module Rule = struct
     }
 
   let ocamllex_jbuild =
-    enter
-      (if_list
-         ~then_:(
-           record
-             (let%map modules = field "modules" (list string)
-              and mode = Mode.field in
-              { modules; mode }))
-         ~else_:(
-           repeat string >>| fun modules ->
-           { modules
-           ; mode  = Standard
-           }))
+    peek_exn >>= function
+    | List (_, Atom (_, _) :: _) ->
+      enter (
+        repeat string >>| fun modules ->
+             { modules
+             ; mode  = Standard
+             }
+      )
+    | _ ->
+      record
+        (let%map modules = field "modules" (list string)
+         and mode = Mode.field in
+         { modules; mode })
 
   let ocamllex_dune =
     if_eos
diff --git a/test/blackbox-tests/dune.inc b/test/blackbox-tests/dune.inc
index 6fefde28..58cfaa8a 100644
--- a/test/blackbox-tests/dune.inc
+++ b/test/blackbox-tests/dune.inc
@@ -570,6 +570,14 @@
    test-cases/ocamldep-multi-stanzas
    (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
 
+(alias
+ (name ocamllex-jbuild)
+ (deps (package dune) (source_tree test-cases/ocamllex-jbuild))
+ (action
+  (chdir
+   test-cases/ocamllex-jbuild
+   (progn (run %{exe:cram.exe} -test run.t) (diff? run.t run.t.corrected)))))
+
 (alias
  (name odoc)
  (deps (package dune) (source_tree test-cases/odoc))
@@ -875,6 +883,7 @@
   (alias ocaml-config-macro)
   (alias ocaml-syntax)
   (alias ocamldep-multi-stanzas)
+  (alias ocamllex-jbuild)
   (alias odoc)
   (alias odoc-unique-mlds)
   (alias output-obj)
@@ -970,6 +979,7 @@
   (alias ocaml-config-macro)
   (alias ocaml-syntax)
   (alias ocamldep-multi-stanzas)
+  (alias ocamllex-jbuild)
   (alias output-obj)
   (alias package-dep)
   (alias path-variables)
diff --git a/test/blackbox-tests/test-cases/ocamllex-jbuild/bar.mll b/test/blackbox-tests/test-cases/ocamllex-jbuild/bar.mll
new file mode 100644
index 00000000..97715204
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocamllex-jbuild/bar.mll
@@ -0,0 +1,8 @@
+{}
+
+rule f = parse
+  | _ { () }
+
+{
+  print_endline "bar"
+}
diff --git a/test/blackbox-tests/test-cases/ocamllex-jbuild/foo.mll b/test/blackbox-tests/test-cases/ocamllex-jbuild/foo.mll
new file mode 100644
index 00000000..61581ffb
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocamllex-jbuild/foo.mll
@@ -0,0 +1,8 @@
+{}
+
+rule f = parse
+  | _ { () }
+
+{
+  print_endline "foo"
+}
diff --git a/test/blackbox-tests/test-cases/ocamllex-jbuild/jbuild b/test/blackbox-tests/test-cases/ocamllex-jbuild/jbuild
new file mode 100644
index 00000000..999f215c
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocamllex-jbuild/jbuild
@@ -0,0 +1,7 @@
+(ocamllex
+ ((modules (foo))))
+
+(ocamllex (bar))
+
+(executable
+ ((name foo)))
diff --git a/test/blackbox-tests/test-cases/ocamllex-jbuild/run.t b/test/blackbox-tests/test-cases/ocamllex-jbuild/run.t
new file mode 100644
index 00000000..5c26a28d
--- /dev/null
+++ b/test/blackbox-tests/test-cases/ocamllex-jbuild/run.t
@@ -0,0 +1,2 @@
+  $ dune exec ./foo.exe
+  foo