--- framework-ps.scm.bak	Mon Feb 19 19:45:40 2024
+++ framework-ps.scm	Mon Feb 19 20:10:30 2024
@@ -22,6 +22,7 @@
 (use-modules (ice-9 string-fun)
              ((ice-9 iconv) #:select (bytevector->string string->bytevector))
              (ice-9 match)
+             (ice-9 pretty-print)
              (guile)
              (lily page)
              (lily paper-system)
@@ -829,6 +830,7 @@
     (write-preamble paper load-fonts port)
     (display "/mark_page_link { pop pop pop pop pop } bind def\n" port)
     (display "gsave set-ps-scale-to-lily-scale\n" port)
+    (pretty-print (ly:stencil-expr dump-me))
     (ly:outputter-dump-stencil outputter dump-me)
     (display "stroke grestore\n%%Trailer\n%%EOF\n" port)
     (ly:outputter-close outputter)