(define (seconds-until-time timestr)
    (handle-exceptions exn
	(abort "Invalid duration format. 'YYYY-MM-DD HH:MM:SS TIMEZONE' expected") 
      (let ((deadline
	     (- (local-time->seconds (string->time timestr "%Y-%m-%d %H:%M:%S %Z"))
		(current-seconds))))
	deadline)))