From b3a8ed98c69b8fd60e854078a8440ddc0a9b1f0b Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 1 Feb 2011 00:28:54 +0100
Subject: [PATCH] Fix PDF metadata extraction when no header block is present

---
 scm/framework-ps.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 9cae54ffa8..032f0c5de1 100644
--- 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))
-- 
2.39.5