diff --git a/cpdfaddtext.ml b/cpdfaddtext.ml
index 68d0778..4053c24 100644
--- a/cpdfaddtext.ml
+++ b/cpdfaddtext.ml
@@ -529,7 +529,7 @@ let
                   in
                     voffset := !voffset +. baseline_adjustment
               | Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}})  ->
-                  voffset := !voffset +. capheight /. 2.
+                  voffset := !voffset +. capheight /. 2. /. 1000.
               | _ ->
                   Pdfe.log "Unable to find midline adjustment in this font\n"
             end
@@ -542,9 +542,9 @@ let
                   in
                     voffset := !voffset +. baseline_adjustment
               | Some (Pdftext.SimpleFont {fontdescriptor = Some {capheight}})  ->
-                  voffset := !voffset +. capheight
+                  voffset := !voffset +. capheight /. 1000.
               | _ ->
-                  Pdfe.log "Unable to find midline adjustment in this font\n"
+                  Pdfe.log "Unable to find topline adjustment in this font\n"
             end;
           let encoding =
             match font with