X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fmark-engraver.cc;h=52dbfbe921215c00a554ca73a476dc7ae01c917a;hb=48f2b9351f93d0161c675cfb60e95bf919041df2;hp=e00947c9ab4100c53ba4b94ab68b26c3d8bd71b4;hpb=2ee36a10bca886544a2969b3adbc72ac28c1acf9;p=lilypond.git

diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc
index e00947c9ab..52dbfbe921 100644
--- a/lily/mark-engraver.cc
+++ b/lily/mark-engraver.cc
@@ -45,8 +45,11 @@ Mark_engraver::do_process_requests ()
   if (mark_req_l_)
     {
       create_items (mark_req_l_);
-      text_p_->text_str_ = mark_req_l_->str_;
-      SCM st = ly_str02scm ((text_p_->text_str_.index_any_i ("0123456789")  >= 0 )
+
+      String t = mark_req_l_->str_;
+      text_p_->set_elt_property ("text",
+				 ly_str02scm ( t.ch_C()));
+      SCM st = ly_str02scm ((t.index_any_i ("0123456789")  >= 0 )
 			    ? "mark" : "large");
       text_p_->set_elt_property ("style",  st);
     }