Appoggiatura slur slightly overlaps note head

[Sebastiano Vigna]

Dear developers, the following example (always Scarlatti K460, at this
point you know 8^):

\score {

           \context Staff = upper {
           \time 2/2
           \key c \major
           \relative c' {
              { << { \appoggiatura d'16 c4 b8 a e'4 d } \\ { <e, a>2 <e gis b>2 
} >> } 
              { << { \appoggiatura { \slurUp d'16 } c4 b8 a e'4 d } \\ { <e, 
a>2 <e gis b>2 } >> } 
              }
              }

              \layout{ raggedlast = ##t }
}




shows an appoggiatura whose slur slightly overlaps the note head. I
tried to move it up, but the result is not satisfactory either.

-- 
Ciao,

                                        seba