Segfault with define-music-function

[Valentin Villenave]

The following code causes a segfault.
LilyPond 2.13.36, GNU/Linux x86_64.

toto =
#(define-music-function (parser location arg) (ly:music?)
   (display (ly:event-property arg 'name))
   (make-sequential-music arg))

{ \toto a }

Also reproduced with today's git.
--verbose output isn't of any help:

[/usr/local/lilypond/usr/share/lilypond/current/ly/init.ly
 [/usr/local/lilypond/usr/share/lilypond/current/ly/declarations-init.ly
  [/usr/local/lilypond/usr/share/lilypond/current/ly/music-functions-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/toc-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/nederlands.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/drumpitch-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/chord-modifiers-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/script-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/chord-repetition-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/scale-definitions-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/grace-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/midi-init.ly
   [/usr/local/lilypond/usr/share/lilypond/current/ly/performer-init.ly]]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/paper-defaults-init.ly
   [/usr/local/lilypond/usr/share/lilypond/current/ly/titling-init.ly]]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/engraver-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/dynamic-scripts-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/spanners-init.ly]
  [/usr/local/lilypond/usr/share/lilypond/current/ly/property-init.ly]
  
[/usr/local/lilypond/usr/share/lilypond/current/ly/predefined-fretboards-init.ly]]
 [toto.lySegmentation fault.

Cheers,
Valentin.