--- pdfpic.tmac.origin	Tue Dec  7 18:28:07 2021
+++ pdfpic.tmac	Tue Dec  7 18:34:15 2021
@@ -84,10 +84,8 @@
 .\" get image dimensions
 .  ec @
 .  sy pdfinfo @$1 | \
-grep "Page *size" | \
-sed -e 's/Page *size: *\\([[:digit:].]*\\) *x *\\([[:digit:].]*\\).*$/\
-.nr pdf-wid (p;\\1)\\n\
-.nr pdf-ht  (p;\\2)/' \
+awk '/^Page size:/ {print ".nr pdf-wid (p;"$3")"; \
+print ".nr pdf-ht  (p;"$5")"}' \
 > /tmp/pdfpic\n[$$]
 .  so /tmp/pdfpic\n[$$]
 .  sy rm /tmp/pdfpic\n[$$]