text_p_->text_str_ = req_l_->text_str_;
text_p_->text_str_ += " "; // ugh.
- Scalar style = get_property ("textStyle", 0);
- if (style.length_i ())
- text_p_->style_str_ = style;
+ SCM style = get_property ("textStyle", 0);
+ if (gh_string_p(style))
+ text_p_->style_str_ = ly_scm2string (style);
text_p_->set_elt_property (non_rhythmic_scm_sym, SCM_BOOL_T);