diff --git a/Makefile b/Makefile
index 6a1e13c..21d1f4a 100644
--- a/Makefile
+++ b/Makefile
@@ -39,8 +39,8 @@ endif
 all : $(TARGETS)
 
 clean ::
-	rm -rf doc foo foo2 out.pdf out2.pdf foo.pdf decomp.pdf *.cmt *.cmti \
-	*.json test/*.pdf *.ps *.aux *.idx *.log *.out *.toc *.cut \
+	rm -rf doc foo foo2 out.pdf out2.pdf out3.pdf foo.pdf decomp.pdf *.cmt \
+	*.cmti *.json test/*.pdf *.ps *.aux *.idx *.log *.out *.toc *.cut \
 	*.ttf *.ttx out.png
 
 DOC_FILES = $(foreach x,$(DOC),$(x).mli)
diff --git a/cpdfimage.ml b/cpdfimage.ml
index 15a9e19..d2b4d17 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -533,7 +533,7 @@ let image_of_input ?subformat ?title ~process_struct_tree fobj i =
        Pdf.Dictionary
          ["/XObject", Pdf.Dictionary ["/I0", Pdf.Indirect (Pdf.addobj pdf obj)]];
      Pdfpage.rotate = Pdfpage.Rotate0;
-     Pdfpage.rest = Pdf.Dictionary [("/StructTreeParents", Pdf.Integer 1)]}
+     Pdfpage.rest = Pdf.Dictionary [("/StructParents", Pdf.Integer 1)]}
   in
   let pdf, pageroot = Pdfpage.add_pagetree [page] pdf in
     Pdfpage.add_root pageroot [] pdf