wrong box width

[Werner LEMBERG]

The code below causes a far too big box width (you can check it easily
by surrounding the \lybox in the TeX output with \frame{...}).  This
is a bug IMHO.


    Werner


======================================================================


#(set! toplevel-score-handler ly:parser-print-score)
#(set! toplevel-music-handler (lambda (p m)
                               (ly:parser-print-score
                                p (ly:music-scorify m p))))



\paper {
  #(define dump-extents #t)
  raggedright = ##t
  indent = 0\mm
}

\score {
  \relative c'' {
    #(set-time-signature 9 8 '(2 2 2 3))
    g8[ g] d[ d] g[ g] a8[( bes g]) | 
    #(set-time-signature 5 8 '(3 2))
    a4. g4
  }
  \layout {
    \context {
      \Staff
      \consists "Measure_grouping_engraver"
    }
  }
}