diff --git a/cpdf.ml b/cpdf.ml
index 8fa3d30..bb9afaf 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -1699,7 +1699,7 @@ let unescape_string s =
   implode (unescape_chars [] (explode s))
 
 let
-  addtexts metrics linewidth outline fast fontname font bates colour position linespacing
+  addtexts metrics linewidth outline fast fontname font embed bates colour position linespacing
   fontsize underneath text pages orientation cropbox opacity justification
   midline topline filename pdf
 =
diff --git a/cpdf.mli b/cpdf.mli
index 507a784..3234ad7 100644
--- a/cpdf.mli
+++ b/cpdf.mli
@@ -300,6 +300,7 @@ val addtexts :
     bool -> (*fast*)
     string -> (*fontname*)
     Pdftext.standard_font option -> (*font*)
+    bool -> (* embed font *)
     int -> (*bates number *)
     float * float * float -> (*colour*)
     position -> (*position*)
diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 63a7be0..db0ae3a 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3507,9 +3507,10 @@ let go () =
             in
               write_pdf false
                 (Cpdf.addtexts
-                   false args.linewidth args.outline args.fast args.fontname font args.bates
-                   args.color args.position args.linespacing args.fontsize
-                   args.underneath text range args.orientation args.relative_to_cropbox args.opacity
+                   false args.linewidth args.outline args.fast args.fontname
+                   font args.embedfonts args.bates args.color args.position
+                   args.linespacing args.fontsize args.underneath text range
+                   args.orientation args.relative_to_cropbox args.opacity
                    args.justification args.midline args.topline filename pdf)
   | Some RemoveText ->
       let pdf = get_single_pdf args.op false in