diff --git a/cpdfimage.ml b/cpdfimage.ml
index 064e522..667746e 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -851,7 +851,7 @@ let recompress_1bpp_ccitt_lossless ~pixel_threshold ~length_threshold pdf s dict
   let old = !reference in
   let restore () = reference := old in
   let w = match Pdf.lookup_direct pdf "/Width" dict with Some (Pdf.Integer i) -> i | _ -> error "bad width" in
-  (*let h = match Pdf.lookup_direct pdf "/Height" dict with Some (Pdf.Integer i) -> i | _ -> error "bad height" in*)
+  let h = match Pdf.lookup_direct pdf "/Height" dict with Some (Pdf.Integer i) -> i | _ -> error "bad height" in
   (*if w * h < pixel_threshold then (if !debug_image_processing then Printf.printf "pixel threshold not met\n%!") else*)
   let size = match Pdf.lookup_direct pdf "/Length" dict with Some (Pdf.Integer i) -> i | _ -> 0 in
   (*if size < length_threshold then (if !debug_image_processing then Printf.printf "length threshold not met\n%!") else*)
@@ -863,7 +863,7 @@ let recompress_1bpp_ccitt_lossless ~pixel_threshold ~length_threshold pdf s dict
           restore ()
       | None ->
         let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in
-        let compressed = Pdfcodec.encode_ccitt w data in
+        let compressed = Pdfcodec.encode_ccitt w h data in
         let newsize = bytes_size compressed in
           if true (*newsize < size*) then
             begin
@@ -897,7 +897,7 @@ let recompress_1bpp_ccittg4_lossless ~pixel_threshold ~length_threshold pdf s di
           restore ()
       | None ->
         let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in
-        let compressed = Pdfcodec.encode_ccittg4 w data in
+        let compressed = Pdfcodec.encode_ccittg4 w h data in
         let newsize = bytes_size compressed in
           if true (* newsize < size *) then
             begin