another CLM locsig question

[Rick Taube]

>    ( 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 ))))