diff --git a/queries/ocamllex/highlights.scm b/queries/ocamllex/highlights.scm
index eb72102a7..513316159 100644
--- a/queries/ocamllex/highlights.scm
+++ b/queries/ocamllex/highlights.scm
@@ -3,11 +3,13 @@
 
 (lexer_entry_name) @function
 
-["as" "let" "parse" "rule"] @keyword
+["as" "let" "and" "parse" "rule"] @keyword
 
 [(eof) (character)] @character
 (string) @string
 
+(ocaml) @none
+
 (character_range "-" @operator)
 (character_set "^" @operator)
 (regexp_alternative ["|"] @operator)
@@ -16,7 +18,7 @@
 (regexp_repetition ["*"] @operator)
 (regexp_strict_repetition ["+"] @operator)
 
-(action ["{" "}"] @punctuation.special) @embedded
+(action ["{" "}"] @punctuation.special)
 (character_set ["[" "]"] @punctuation.bracket)
 (parenthesized_regexp ["(" ")"] @punctuation.bracket)
 
diff --git a/queries/ocamllex/injections.scm b/queries/ocamllex/injections.scm
new file mode 100644
index 000000000..65a9bdd50
--- /dev/null
+++ b/queries/ocamllex/injections.scm
@@ -0,0 +1,2 @@
+((ocaml) @injection
+ (#set! "lang" "ocaml"))