- SCM list = scm_eval (gh_list (ly_symbol2scm ("articulation-to-scriptdef"),
- ly_str02scm (l->articulation_str_.ch_C()),
- SCM_UNDEFINED));
+ SCM list = scm_assoc (ly_str02scm (l->articulation_str_.ch_C ()),
+ scm_eval (ly_symbol2scm ("script-alist")));