How to get slur-event in cueDuring notes

[Cynthia Karl]

The following snippet seems to show a problem getting a slur-event to appear in music generated by \cueDuring:

\version "2.19.23"

A = \relative c'' {

    \set Staff.instrumentName = "A"

    c( d e f)

    g f e d

}

\addQuote "a" \A

B = \relative c'' {

    \set Staff.instrumentName = "B"

    <>^\markup{\teeny CueNotes }

    \cueDuring "a" #DOWN R1

    g4 f e d

}

\score {

    <<  

        \set Score.quotedEventTypes = #'(note-event articulation-event

                crescendo-event rest-event

                slur-event dynamic-event)

         \new Staff \A

         \new Staff \B

    >>

}

Can anyone off me a clue?  Thanks