diff --git a/Changes b/Changes
index bcef424..63e4438 100644
--- a/Changes
+++ b/Changes
@@ -7,6 +7,7 @@ o Add @b<n>@ for trimming bookmark text to given length
 o Add Piece Info to -composition[-json]
 o -merge-add-bookmarks now has proper titles for images
 o New -jpeg-to-jpeg-scale and -jpeg-to-jpeg-dpi
+o Expand page characteristics to cover Art, Trim, Bleed
 
 2.7.2 (October 2024)
 
diff --git a/cpdfcoord.ml b/cpdfcoord.ml
index 125051a..895bd5a 100644
--- a/cpdfcoord.ml
+++ b/cpdfcoord.ml
@@ -18,8 +18,8 @@ let points_of_papersize p =
   let h = Pdfunits.points (Pdfpaper.height p) u in
     w, h
 
-let cropbox pdf page =
-  match Pdf.lookup_direct pdf "/CropBox" page.Pdfpage.rest with
+let box name pdf page =
+  match Pdf.lookup_direct pdf name page.Pdfpage.rest with
   | Some pdfobject -> Pdf.direct pdf pdfobject
   | None -> page.Pdfpage.mediabox
 
@@ -30,34 +30,48 @@ let miny pdf box = let minx, miny, maxx, maxy = Pdf.parse_rectangle pdf box in m
 let maxx pdf box = let minx, miny, maxx, maxy = Pdf.parse_rectangle pdf box in maxx
 let maxy pdf box = let minx, miny, maxx, maxy = Pdf.parse_rectangle pdf box in maxy
 
-let find_page_width pdf page = width pdf page.Pdfpage.mediabox
-let find_page_height pdf page = height pdf page.Pdfpage.mediabox
-let find_page_crop_width pdf page = width pdf (cropbox pdf page)
-let find_page_crop_height pdf page = height pdf (cropbox pdf page)
-let find_page_minx pdf page = minx pdf page.Pdfpage.mediabox
-let find_page_miny pdf page = miny pdf page.Pdfpage.mediabox
-let find_page_maxx pdf page = maxx pdf page.Pdfpage.mediabox
-let find_page_maxy pdf page = maxy pdf page.Pdfpage.mediabox
-let find_page_crop_minx pdf page = minx pdf (cropbox pdf page)
-let find_page_crop_miny pdf page = miny pdf (cropbox pdf page)
-let find_page_crop_maxx pdf page = maxx pdf (cropbox pdf page)
-let find_page_crop_maxy pdf page = maxy pdf (cropbox pdf page)
-
 let find_page_characteristic pdf page = function
-  | "PW" -> find_page_width pdf page
-  | "PH" -> find_page_height pdf page
-  | "CW" -> find_page_crop_width pdf page
-  | "CH" -> find_page_crop_height pdf page
-  | "PMINX" -> find_page_minx pdf page
-  | "PMINY" -> find_page_miny pdf page
-  | "PMAXX" -> find_page_maxx pdf page
-  | "PMAXY" -> find_page_maxy pdf page
-  | "CMINX" -> find_page_crop_minx pdf page
-  | "CMINY" -> find_page_crop_miny pdf page
-  | "CMAXX" -> find_page_crop_maxx pdf page
-  | "CMAXY" -> find_page_crop_maxy pdf page
+  | "PW" -> width pdf page.Pdfpage.mediabox
+  | "PH" -> height pdf page.Pdfpage.mediabox
+  | "CW" -> width pdf (box "/CropBox" pdf page)
+  | "CH" -> height pdf (box "/CropBox" pdf page)
+  | "AW" -> width pdf (box "/ArtBox" pdf page)
+  | "AH" -> height pdf (box "/ArtBox" pdf page)
+  | "TW" -> width pdf (box "/TrimBox" pdf page)
+  | "TH" -> height pdf (box "/TrimBox" pdf page)
+  | "BW" -> width pdf (box "/BleedBox" pdf page)
+  | "BH" -> height pdf (box "/BleedBox" pdf page)
+  | "PMINX" -> minx pdf page.Pdfpage.mediabox
+  | "PMINY" -> miny pdf page.Pdfpage.mediabox
+  | "PMAXX" -> maxx pdf page.Pdfpage.mediabox
+  | "PMAXY" -> maxy pdf page.Pdfpage.mediabox
+  | "CMINX" -> minx pdf (box "/CropBox" pdf page)
+  | "CMINY" -> miny pdf (box "/CropBox" pdf page)
+  | "CMAXX" -> maxx pdf (box "/CropBox" pdf page)
+  | "CMAXY" -> maxy pdf (box "/CropBox" pdf page)
+  | "AMINX" -> minx pdf (box "/ArtBox" pdf page)
+  | "AMINY" -> miny pdf (box "/ArtBox" pdf page)
+  | "AMAXX" -> maxx pdf (box "/ArtBox" pdf page)
+  | "AMAXY" -> maxy pdf (box "/ArtBox" pdf page)
+  | "TMINX" -> minx pdf (box "/TrimBox" pdf page)
+  | "TMINY" -> miny pdf (box "/TrimBox" pdf page)
+  | "TMAXX" -> maxx pdf (box "/TrimBox" pdf page)
+  | "TMAXY" -> maxy pdf (box "/TrimBox" pdf page)
+  | "BMINX" -> minx pdf (box "/BleedBox" pdf page)
+  | "BMINY" -> miny pdf (box "/BleedBox" pdf page)
+  | "BMAXX" -> maxx pdf (box "/BleedBox" pdf page)
+  | "BMAXY" -> maxy pdf (box "/BleedBox" pdf page)
   | _ -> failwith "find_page_characteristic"
 
+let is_page_characteristic = function
+  | "PW" | "PH" | "CW" | "CH" | "AW" | "AH" | "TW" | "TH" | "BW" | "BH"
+  | "PMINX" | "PMINY" | "PMAXX" | "PMAXY"
+  | "CMINX" | "CMINY" | "CMAXX" | "CMAXY"
+  | "AMINX" | "AMINY" | "AMAXX" | "AMAXY"
+  | "TMINX" | "TMINY" | "TMAXX" | "TMAXY"
+  | "BMINX" | "BMINY" | "BMAXX" | "BMAXY" -> true
+  | _ -> false
+
 let make_num pdf page unt num =
   let f =
     match num with
@@ -66,11 +80,7 @@ let make_num pdf page unt num =
     | Pdfgenlex.LexName
       (( "PW" | "PH" | "CW" | "CH" | "PMINX" | "PMINY" | "PMAXX" | "PMAXY"
       | "CMINX" | "CMINY" | "CMAXX" | "CMAXY") as page_characteristic) ->
-        (*let r =*)
         find_page_characteristic pdf page page_characteristic
-        (*in
-          Printf.printf "characteristic %s is %f\n" page_characteristic r;
-          r*)
     | _ -> failwith "make_num"
   in
     match unt with
@@ -172,10 +182,7 @@ and parse_units pdf page numbers = function
   | Pdfgenlex.LexName
       (( "PW" | "PH" | "CW" | "CH" | "PMINX" | "PMINY" | "PMAXX" | "PMAXY"
        | "CMINX" | "CMINY" | "CMAXX" | "CMAXY") as page_characteristic)::more ->
-         let r =
-           find_page_characteristic pdf page page_characteristic
-         in
-         (*  Printf.printf "characteristic %s is %f\n" page_characteristic r;*)
+         let r = find_page_characteristic pdf page page_characteristic in
            parse_units pdf page (r::numbers) more
   | Pdfgenlex.LexName ("add" | "sub" | "mul" | "div") as op::
     ((Pdfgenlex.LexInt _ | Pdfgenlex.LexReal _ |  Pdfgenlex.LexName
diff --git a/cpdfmanual.pdf b/cpdfmanual.pdf
index 8fa9ea7..0f60ff6 100644
Binary files a/cpdfmanual.pdf and b/cpdfmanual.pdf differ
diff --git a/cpdfmanual.tex b/cpdfmanual.tex
index fc8a3f0..573299b 100644
--- a/cpdfmanual.tex
+++ b/cpdfmanual.tex
@@ -910,7 +910,7 @@ supported:
 \end{tabular}
 \end{center}
 
-\noindent For example, one may write \texttt{14mm} or \texttt{21.6in}. In addition, the following letters stand, in some operations (\texttt{-scale-page}, \texttt{-scale-to-fit}, \texttt{-scale-contents}, \texttt{-shift}, \texttt{-mediabox},\\ \texttt{-cropbox}) for various page dimensions:
+\noindent For example, one may write \texttt{14mm} or \texttt{21.6in}. In addition, the following letters stand for various page dimensions:
 
 \begin{center}
 \begin{tabular}{rl}
@@ -925,7 +925,25 @@ supported:
   \texttt{CMINX} & Crop box minimum x coordinate\\
   \texttt{CMINY} & Crop box minimum y coordinate\\
   \texttt{CMAXX} & Crop box maximum x coordinate\\
-  \texttt{CMAXY} & Crop box maximum y coordinate
+  \texttt{CMAXY} & Crop box maximum y coordinate\\
+  \texttt{AW} & Art box width\\
+  \texttt{AH} & Art box height\\
+  \texttt{AMINX} & Art box minimum x coordinate\\
+  \texttt{AMINY} & Art box minimum y coordinate\\
+  \texttt{AMAXX} & Art box maximum x coordinate\\
+  \texttt{AMAXY} & Art box maximum y coordinate\\
+  \texttt{TW} & Trim box width\\
+  \texttt{TH} & Trim box height\\
+  \texttt{TMINX} & Trim box minimum x coordinate\\
+  \texttt{TMINY} & Trim box minimum y coordinate\\
+  \texttt{TMAXX} & Trim box maximum x coordinate\\
+  \texttt{TMAXY} & Trim box maximum y coordinate\\
+  \texttt{BW} & Bleed box width\\
+  \texttt{BH} & Bleed box height\\
+  \texttt{BMINX} & Bleed box minimum x coordinate\\
+  \texttt{BMINY} & Bleed box minimum y coordinate\\
+  \texttt{BMAXX} & Bleed box maximum x coordinate\\
+  \texttt{BMAXY} & Bleed box maximum y coordinate\\
 \end{tabular}
 \end{center}