- SCM begin_mult = get_property (time_str + "beamAutoBegin" + type_str);
- if (SMOB_IS_TYPE_B (Moment, begin_mult))
- begin_mom = * SMOB_TO_TYPE (Moment,begin_mult);
+ SCM begin_mult = get_property ((time_str + "beamAutoBegin" + type_str).ch_C());
+ if (unsmob_moment (begin_mult))
+ begin_mom = * unsmob_moment (begin_mult);