diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 7e47e04..0433006 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -2142,7 +2142,6 @@ and specs =
    ("-embed-missing-fonts",
       Arg.Unit (setop EmbedMissingFonts),
       " Embed missing fonts by calling gs");
-
    ("-twoup",
       Arg.Unit (setop TwoUp),
       " Put 2 pages onto one");
diff --git a/cpdftype.ml b/cpdftype.ml
index 0f756f4..8f3f02a 100644
--- a/cpdftype.ml
+++ b/cpdftype.ml
@@ -64,7 +64,8 @@ let font_widths f fontsize =
           *. float_of_int
                (Pdfstandard14.textwidth false Pdftext.WinAnsiEncoding sf (string_of_char (char_of_int x)))
           /. 1000.)
-  | Pdftext.SimpleFont {fontmetrics = Some m} -> m
+  | Pdftext.SimpleFont {fontmetrics = Some m} ->
+      Array.map (fun x -> fontsize *. x /. 1000. ) m
   | _ -> raise (Pdf.PDFError "Cpdftype: Unsupported font")
 
 let width_of_string ws s =