X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmarkup.scm;fp=scm%2Fmarkup.scm;h=3cf774d4a880bfd66f8e9cc8bd152411143aafa8;hb=a43a9465fda1728a64fae3619c3f936589dbbdf0;hp=6bd9fd6236c687950ff450b09ee2184badda92e8;hpb=d1db9b1d6ebb1014429974f22162b44bf9a03533;p=lilypond.git

diff --git a/scm/markup.scm b/scm/markup.scm
index 6bd9fd6236..3cf774d4a8 100644
--- a/scm/markup.scm
+++ b/scm/markup.scm
@@ -538,7 +538,7 @@ Uncovered - cheap-markup? is used."
 	       (ly:stencil? (cadr stencils)))
           (let* ((tail (stack-stencil-line space (cdr stencils)))
                  (head (car stencils))
-                 (xoff (+ space (cdr (ly:stencil-extent head X)))))
+                 (xoff (+ space (interval-length (ly:stencil-extent head X)))))
             (ly:stencil-add head
                              (ly:stencil-translate-axis tail xoff X)))
           (car stencils))