Force TAPulse to have integer length.

--BRJ and CAR