(require (lib "date.ss"))

  (xdef 'date
    (lambda ()
      (parameterize ((date-display-format 'iso-8601))
        (date->string (seconds->date (current-seconds))))))