diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 5e42c13..520d747 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1272,6 +1272,7 @@ let set_input s =
 
 let set_json_input s =
   args.original_filename <- s;
+  args.create_objstm <- true;
   let fh = open_in_bin s in
   let pdf = Cpdfjson.of_input (Pdfio.input_of_channel fh) in
     close_in fh;
diff --git a/cpdfimpose.ml b/cpdfimpose.ml
index be0e1de..3dce589 100644
--- a/cpdfimpose.ml
+++ b/cpdfimpose.ml
@@ -118,8 +118,6 @@ let impose_transforms fit fx fy columns rtl btt center margin mediabox output_me
     done;
   map (if fit then make_margin output_mediabox margin else Fun.id) (rev !trs)
 
-(* Combine two pages into one throughout the document. The pages have already
-had their objects renumbered so as not to clash. *)
 let impose_pages fit x y columns rtl btt center margin output_mediabox fast fit_extra_hspace fit_extra_vspace pdf = function
   | [] -> assert false
   | (h::_) as pages ->