From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 4 Aug 2008 01:44:17 +0000 (-0300)
Subject: Oops.
X-Git-Tag: release/2.11.55-1~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0b6fb72e8c43ef86ff770ecf7c5b046fc005a39a;p=lilypond.git

Oops.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 56507ce0e3..5e26c1d4b7 100644
--- 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,