run-at-time capricious

Hi, Does it happen only to me? The run-at-time function works randomly for both 21.4 and 21.5 (built on Solaris and Linux). Here's a test program which shows the actual lapsed time: (defun test-timer (second) (interactive "nSecond: ") (let ((start (current-time))) (run-at-time second nil (lambda (start) (let ((end (current-time))) (message "Lapsed: %f" (+ (* (- (car end) (car start)) 65536) (- (nth 1 end) (nth 1 start)) (/ (- (nth 2 end) (nth 2 start)) 1000000.0))))) start))) It ends more quickly than the specified time in almost cases. This is an exception although it is good that XEmacs works quickly.:-p -- Katsumi Yamaoka <yamaoka(a)jpl.org&gt;