diff --git a/Changes b/Changes
index 825c706..63e6a5b 100644
--- a/Changes
+++ b/Changes
@@ -19,6 +19,7 @@ o Merge now merges structure trees (tagged PDF)
 o Merge now rewrites clashing name tree entries
 o Preserve /GoTo actions in bookmarks when merging
 o UTF8 option for JSON output
+o -info now shows object stream and /ID data
 
 Fixes:
 
diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 5625a51..ad4bfa0 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3549,6 +3549,12 @@ let go () =
         Printf.printf "Permissions: %s\n" (getpermissions pdf);
         if inname <> "" then
           Printf.printf "Linearized: %b\n" (Pdfread.is_linearized (Pdfio.input_of_channel (open_in_bin inname)));
+        Printf.printf "Object streams: %b\n" (length (list_of_hashtbl pdf.Pdf.objects.Pdf.object_stream_ids) > 0);
+        Printf.printf "ID: %s\n"
+          (match
+             Pdf.lookup_direct pdf "/ID" pdf.Pdf.trailerdict with
+             | Some (Pdf.Array [Pdf.String s; Pdf.String s']) -> Printf.sprintf "%s %s" (Pdfwrite.make_hex_pdf_string s) (Pdfwrite.make_hex_pdf_string s');
+             | _ -> "None");
         let pdf = decrypt_if_necessary input (Some Info) pdf in
           Cpdfmetadata.output_info args.encoding pdf;
           Cpdfmetadata.output_xmp_info args.encoding pdf