diff --git a/Changes b/Changes
index a5ccba6..fce9620 100644
--- a/Changes
+++ b/Changes
@@ -17,9 +17,9 @@ o -obj JSON output
 o Allow %objnum in output name for -extract-images
 * -show-boxes, -trim-marks, -table-of-contents, -add-text
   -add-rectangle, -impose, -twoup, -twoup-stack now preserve
-  PDF/UA compatibility
-* Preserve PDF/UA when drawing on existing PDF
-* Preserve PDF/UA with -stamp-on and -combine-pages
+  PDF/UA and PDF/UA-2 compatibility
+* Preserve PDF/UA and PDF/UA-2 when drawing on existing PDF
+* Preserve PDF/UA and PDF/UA-2 with -stamp-on and -combine-pages
 o Allow -scale-stamp-to-fit for -combine-pages
 * Allow -underneath for -combine-pages
 * Preserve roundtripping of names destinations / actions
diff --git a/cpdftoc.ml b/cpdftoc.ml
index c493d29..d369843 100644
--- a/cpdftoc.ml
+++ b/cpdftoc.ml
@@ -352,6 +352,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
            assumption is ok because /P entries must have an indirect to point
            to. So if the document contains anything, the /Document structelem
            must be indirect. *)
+        (* FIXME Move this code up, and return i so we can put the proper /P parent entries in our structure elements. They should point to /Document now not the /StructTreeRoot. *)
         begin match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/StructTreeRoot"] with
         | Some d ->
             (* Get indirect of top-level /Document *)