X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic.cc;h=77c8f34335629a5c75c4d2e7e9614976e95e259e;hb=6ea234295056cc74e1a813271bf6f748973c4306;hp=b22e243139690aa239ea475d7a6bff176675afe0;hpb=87eedcd59f4082cb0841528ad5bc82cb1d1191e3;p=lilypond.git

diff --git a/lily/music.cc b/lily/music.cc
index b22e243139..77c8f34335 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -250,7 +250,7 @@ Music::origin () const
 Stream_event *
 Music::to_event () const
 {
-  SCM class_name = ly_camel_case_to_lisp_identifier (get_property ("name"));
+  SCM class_name = ly_camel_case_2_lisp_identifier (get_property ("name"));
 
   // catch programming mistakes.
   if (!internal_is_music_type (class_name))