diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 8eec320..932d80c 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -21,6 +21,7 @@
 
 (use-modules (scm ps-to-png)
              (scm paper-system)
+             (ice-9 format)
              (ice-9 optargs))
 
 (define-public (ly:system command)
@@ -73,7 +74,8 @@
 
 (define-public (postscript->pdf paper-width paper-height
                                 base-name tmp-name is-eps)
-  (let* ((pdf-name (string-append base-name ".pdf"))
+  (let* ((start (get-internal-real-time))
+         (pdf-name (string-append base-name ".pdf"))
          (*unspecified* (if #f #f))
          (cmd
           (remove (lambda (x) (eq? x *unspecified*))
@@ -107,7 +109,9 @@
                    (string-append "-f" tmp-name)))))
 
     (ly:message (_ "Converting to `~a'...\n") pdf-name)
-    (ly:system cmd)))
+    (ly:system cmd)
+    (ly:message (ly:format "GS ps->pdf done: took ~f secs" (/ (- (get-internal-real-time) start) internal-time-units-per-second)))
+    ))
 
 (define-public (postscript->png resolution paper-width paper-height
                                 base-name tmp-name is-eps)
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 2cd9b5e..5959d59 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -657,7 +657,8 @@ mark {ly~a_stream} /CLOSE pdfmark
           source-list (iota (length source-list))))))
 
 (define-public (output-framework basename book scopes fields)
-  (let* ((port-tmp (make-tmpfile))
+  (let* ((start (get-internal-real-time))
+         (port-tmp (make-tmpfile))
          (tmp-name (port-filename port-tmp))
          (outputter (ly:make-paper-outputter
                      port-tmp
@@ -689,7 +690,11 @@ mark {ly~a_stream} /CLOSE pdfmark
     (display "%%Trailer\n%%EOF\n" port)
     (ly:outputter-close outputter)
     (postprocess-output book framework-ps-module (ly:output-formats)
-                        basename tmp-name #f)))
+                        basename tmp-name #f)
+
+    (ly:message (ly:format "PS done: took ~f secs" (/ (- (get-internal-real-time) start) internal-time-units-per-second)))
+
+    ))
 
 (define-public (dump-stencil-as-EPS paper dump-me filename
                                     load-fonts)