- SCM met = tempo_req_l_->get_mus_property ("metronome-count");
- audio_p_ = new Audio_tempo (tempo_req_l_->dur_.length_mom () /
- Moment (1, 4)
- * Moment(gh_scm2int (met)));
+ SCM met = tempo_req_->get_mus_property ("metronome-count");
+ Duration *d = unsmob_duration (tempo_req_->get_mus_property ("tempo-unit"));
+
+ Rational r = (d->get_length () / Moment (Rational (1, 4)) * Moment (gh_scm2int (met))).main_part_;
+
+ audio_ = new Audio_tempo (int (r));