anchor.diff:        (cl-ppcre:scan-to-strings "^(\\d+)([dhms]?)$" str)
       (when match
         (let ((num (parse-integer (aref regs 0))))
  -        (+ (get-universal-time)
  -           (if (zerop (length (aref regs 1)))
  -               (* num 60)
  -               (ecase (char (aref regs 1) 0)
  -                 (#\d (* num 86400))
  -                 (#\h (* num 3600))
  -                 (#\m (* num 60))
  -                 (#\s num))))))))
  +        (if (zerop (length (aref regs 1)))
  +            (* num 60)
  +            (ecase (char (aref regs 1) 0)
  +              (#\d (* num 86400))
  +              (#\h (* num 3600))
  +              (#\m (* num 60))
  +              (#\s num)))))))
   
   (defun query-leases (module env-name leases)
  -  (let ((matching (remove env-name leases :test-not #'string-equal :key #'cadr))
  +  (let ((matching (remove env-name leases :test-not #'string-equal :key #'env-of))
           (status (cdr (assoc env-name (statuses-of module) :test #'string-equal))))
       (if matching
           (with-output-to-string (str)
  
positive.code:     (write (environments-of module) :stream ouf)
      (terpri ouf)
      (write-line ";; Leases" ouf)
      (write (leases-of module) :stream ouf)
      (terpri ouf)
      (write-line ";; Statuses" ouf)
      (write (statuses-of module) :stream ouf)
      (terpri ouf)))
  
  (defun load-env-data (module)
    (with-open-file (inf (orcabot-path "data/pss-envs.lisp")
  
negative.code:        (format nil "Sorry, didn't understand ~a as an amount of time" time-str))
        (t
         (remove-env-lease module env-name nick)
         (let* ((now (get-universal-time))
                (new-lease (make-instance 'lease
                                          :nick nick
                                          :env env-name
                                          :activity activity
                                          :expires (+ now expire-time))))
           (push new-lease (leases-of module))
           (instantiate-lease-timer module new-lease now))
         (save-env-data module)
         (format nil "~a taken by ~a for ~a"
                 env-name
                 nick
                 (describe-duration expire-time))))))
  
  (defun env-has-lease-p (module env-name nick)
    (find-if (lambda (lease)
               (and (not (string-equal (nick-of lease) nick))
                    (string-equal (env-of lease) env-name)))
             (leases-of module)))
  
  (defun release-lease (module env-name nick)
    (cond
  