scheme function for staccato

[Stefan Thomas]

Dear Lilypond-users,
I've read the explanation in the manual of version 2.10. about adding articulation to notes. I thougt, with his I could be able to simply add a staccato-dots to a group of notes, but unfortunately, it doesn't work as expected. 
Is there a  solution available?
Here the short example:
 addStaccato = #(define-music-function (parser location event-chord)
                                     (ly:music?)
       (let ((result-event-chord (ly:music-deep-copy event-chord)))

      (set! (ly:music-property result-event-chord 'elements)
            (cons (make-music 'ArticulationEvent
                    'articulation-type "staccato")
                  (ly:music-property result-event-chord 'elements)))

      result-event-chord))

\score {
\new Staff \relative { \addStaccato {c4 c g' g a a g2 f f <c e > <c e> <b d> 2 c } } }