diff --git a/cpdf.ml b/cpdf.ml
index 3bd0eff..eec84d3 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -841,7 +841,7 @@ let list_attached_files pdf =
                                    | Some stream ->
                                        Some
                                         {name = s;
-                                         pagenumber;
+                                         pagenumber = pagenumber;
                                          data =
                                            (fun () ->
                                              try
@@ -857,7 +857,7 @@ let list_attached_files pdf =
                               | _ ->
                                   Some
                                     {name = s;
-                                     pagenumber;
+                                     pagenumber = pagenumber;
                                      data = (fun () -> raise (Pdf.PDFError "no attachment data"))}
                               end
                           | _ -> None
diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index a9283cc..2604201 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1,5 +1,5 @@
 (* cpdf command line tools *)
-let demo = true
+let demo = false
 let noncomp = false
 let major_version = 2
 let minor_version = 2