diff --git a/knots.scm b/knots.scm index 765db5a..0baaf3a 100644 --- a/knots.scm +++ b/knots.scm @@ -37,9 +37,10 @@ (thunk))) (define (wait-when-system-clock-behind) - (let ((start-of-the-year-2000 946684800)) + ;; Jan 02 2001 02:00:00 + (let ((start-of-the-year-2001 978400800)) (while (< (current-time) - start-of-the-year-2000) + start-of-the-year-2001) (simple-format (current-error-port) "warning: system clock potentially behind, waiting\n") (sleep 20))))