diff --git a/generator/GObject.ml b/generator/GObject.ml
index f7d872d20..19e0370f8 100644
--- a/generator/GObject.ml
+++ b/generator/GObject.ml
@@ -909,12 +909,12 @@ guestfs_session_close (GuestfsSession *session, GError **err)
   return TRUE;
 }|};
 
-  let urls = Str.regexp "L<\\(https?\\)://\\([^>]*\\)>" in
-  let bz = Str.regexp "RHBZ#\\([0-9]+\\)" in
-  let cve = Str.regexp "\\(\\s\\)\\(CVE-[0-9]+-[0-9]+\\)" in
-  let api_crossref = Str.regexp "C<guestfs_\\([-_0-9a-zA-Z]+\\)>" in
-  let nonapi_crossref = Str.regexp "C<\\([-_0-9a-zA-Z]+\\)>" in
-  let escaped = Str.regexp "E<\\([0-9a-zA-Z]+\\)>" in
+  let urls = Str.regexp {|L<\(https?\)://\([^>]*\)>|} in
+  let bz = Str.regexp {|RHBZ#\([0-9]+\)|} in
+  let cve = Str.regexp {|\(\s\)\(CVE-[0-9]+-[0-9]+\)|} in
+  let api_crossref = Str.regexp {|C<guestfs_\([-_0-9a-zA-Z]+\)>|} in
+  let nonapi_crossref = Str.regexp {|C<\([-_0-9a-zA-Z]+\)>|} in
+  let escaped = Str.regexp {|E<\([0-9a-zA-Z]+\)>|} in
   let literal = Str.regexp "\\(^\\|\n\\)[ \t]+\\([^\n]*\\)\\(\n\\|$\\)" in
 
   List.iter (
diff --git a/generator/fish.ml b/generator/fish.ml
index b8435ea54..b30561617 100644
--- a/generator/fish.ml
+++ b/generator/fish.ml
@@ -892,7 +892,7 @@ do_completion (const char *text, int start, int end)
 and generate_fish_actions_pod () =
   generate_header PODStyle GPLv2plus;
 
-  let rex = Str.regexp "C<guestfs_\\([^>]+\\)>" in
+  let rex = Str.regexp {|C<guestfs_\([^>]+\)>|} in
 
   List.iter (
     fun ({ name; style = _, args, optargs; longdesc } as f) ->