*** empty log message ***

[lilypond.git] / lily / note-head.cc

diff --git a/lily/note-head.cc b/lily/note-head.cc
index cd9bc3729c4fd2a5614d67a71c02ff1a9e8f57f5..2cc60c17b691860bd1dd6227b57c14afdbba191d 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -209,7 +209,7 @@ Note_head::brew_ez_molecule (SCM smob)
   s[0] = (pit->notename_ + 2)%7 + 'a';
   s[0] = toupper (s[0]);
   
-  SCM charstr = ly_str02scm (s);
+  SCM charstr = scm_makfrom0str (s);
   
   SCM at = scm_list_n (ly_symbol2scm ("ez-ball"),
                       charstr,