anchor.diff:           (target-dir (merge-pathnames (format NIL "~a/" timestamp) directory))
            (running-modules (remove-if-not #'active (remove :backup (alexandria:hash-table-keys *bot-modules*)))))
       (flet ((copy-fun (pathname)
  -             (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring *config-dir*))) target-dir)))
  +             (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring *config-directory*))) target-dir)))
                  (if (cl-fad:directory-pathname-p pathname)
                      (progn
                        (v:debug :backup "Ensuring directory ~a" target-path)
  
positive.code:                                   (v:error :backup "Error stopping module ~a: ~a" module err)
                                    (invoke-restart 'skip))))
            (stop-module module)))
        (v:debug :backup "Copying folder ~a to ~a..." (namestring *config-dir*) (namestring target-dir))
        (copy-fun *config-dir*)
        (cl-fad:walk-directory *config-dir* #'copy-fun :directories T)
        (v:debug :backup "Starting all previously active modules...")
        (dolist (module running-modules)
          (handler-bind ((error #'(lambda (err)
  
negative.code:   (:documentation "Automatic periodic configuration backup module."))
  
  (defmethod start ((backup backup))
    (with-module-storage (backup)
      (setf (interval backup) (uc:config-tree :interval)
            (backup-directory backup) (parse-namestring (uc:config-tree :directory))
            (timer backup) (trivial-timers:make-timer #'backup :name "Backup-Thread")))
    (start-timer))
  
  (defmethod stop ((backup backup))
    (trivial-timers:unschedule-timer (timer backup))
    (with-module-storage (backup)
      (setf (uc:config-tree :interval) (interval backup)
            (uc:config-tree :directory) (namestring (backup-directory backup))
            (timer backup) NIL)))
  
  (defun backup ()
    (let* ((directory (backup-directory (get-module :backup)))
  