anchor.diff:  
   (defmethod load-storage :after ((backup backup))
     (with-module-storage (backup)
  -    (setf (interval backup) (uc:config-tree :interval)
  +    (setf (interval backup) (or (uc:config-tree :interval) 86400)
             (backup-directory backup) (parse-namestring (or (uc:config-tree :directory)
  -                                                          (namestring (merge-pathnames "backup"
  +                                                          (namestring (merge-pathnames "backup/"
                                                                                          (asdf:system-source-directory :colleen))))))))
   
   (defmethod save-storage :before ((backup backup))
  
positive.code: (defun restore (backup-name)
    (let* ((directory (backup-directory (get-module :backup)))
           (source-dir (merge-pathnames (format NIL "~a/" backup-name) directory))
           (running-modules (remove-if-not #'active (remove :backup (alexandria:hash-table-keys *bot-modules*)))))
      (assert (cl-fad:file-exists-p source-dir) () "Backup ~a does not exist!" backup-name)
      (flet ((copy-fun (pathname)
               (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring source-dir))) *config-directory*)))
  
negative.code:       (v:info :backup "Starting backup.")
        (v:debug :backup "Saving storage of all active modules...")
        (dolist (module running-modules)
          (handler-case
              (save-storage module)
            (error (err)
              (v:error :backup "Error saving storage for module ~a: ~a" module err))))
        (v:debug :backup "Copying folder ~a to ~a..." (namestring *config-directory*) (namestring target-dir))
        (copy-fun *config-directory*)
        (cl-fad:walk-directory *config-directory* #'copy-fun :directories T)
  