(let* ((stem-grob (ly:grob-parent grob X))