Oops.

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 56507ce0e3ae15351d810373c5a1b1d1c4b01431..5e26c1d4b7d916b261b11615d1cf3024ec9c4f77 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -548,9 +548,9 @@
                              (rounder (/ (* x scale) (ly:bp 1)))))))
       (list (directed-round (car box) floor)
            (directed-round (cadr box) floor)
-           (max (1+ (car box)) (directed-round (caddr box) ceiling)
-           (max (1+ (cadr box)) (directed-round (cadddr box) ceiling)
-         )))))
+           (max (1+ (car box)) (directed-round (caddr box) ceiling))
+           (max (1+ (cadr box)) (directed-round (cadddr box) ceiling))
+         )))
 
   (let* ((outputter (ly:make-paper-outputter
                     ;; FIXME: better wrap open/open-file,