> ( let* > ( ( beg ( floor ( * start-time sampling-rate ))) > ( end ( floor ( * duration sampling-rate ))) I think you want that last line to read: ( end (+ beg ( floor ( * duration sampling-rate ))))