for (; !busy && scm_is_pair (melisma_properties);
melisma_properties = scm_cdr (melisma_properties))
- busy = busy || to_boolean (tr->internal_get_property (scm_car (melisma_properties)));
+ busy = busy || to_boolean (tr->get_property (scm_car (melisma_properties)));
return busy;
}