Fix PDF metadata extraction when no header block is present

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 9cae54ffa851810152b4b886010b5f1ac7c1e261..032f0c5de1f263beae33126e2ce1edd09b3b9233 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -448,7 +448,8 @@
     ;; don't do BeginDefaults PageMedia: A4
     ;; not necessary and wrong
     (write-preamble paper #t port)
-    (handle-metadata header port)
+    (if (module? header)
+       (handle-metadata header port))
     (for-each
      (lambda (page)
        (set! page-number (1+ page-number))