diff --git a/awoobot.rkt b/awoobot.rkt index dfa0b05..e632a0f 100755 --- a/awoobot.rkt +++ b/awoobot.rkt @@ -55,7 +55,7 @@ (define (schedule-next) (define now (current-date/utc)) - (define now-jd (date->jd now)) + (define now-jd (+ 0.5 (date->jd now))) (define DT (dynamical-delta-t (date-year now))) (define fullmoon-jd (- (lunar-next-phase now-jd 'full) (/ DT 86400)))