    (let [dam-number (prod/dam-number production)
          archive-path (.getPath (file periodical-spool-dir dam-number))
          multi-volume? (prod/multi-volume? production)]
-     (when (fs/exists? archive-path)
+     (when (nio/exists? archive-path)
        ;; when repairing the production is already in the spool dir
        (log/warnf "Archive path %s for periodical already exists, removing" archive-path)
        (util/delete-directory! archive-path))

            [clj-time.core :as t]
            [clj-time.coerce :refer [to-date]]
            [org.tobereplaced.nio.file :as nio]
            [me.raynes.fs :as fs]
            [mdr2.production :as prod]
            [mdr2.production.path :as path]
            [mdr2.repair :as repair]

     (doseq [volume (range 1 (inc (:volumes production)))]
       (let [iso-archive-name (str dam-number (when multi-volume? (str "_" volume)) ".iso")
             iso-archive-path (.getPath (file archive-path "produkt" iso-archive-name))]
         (nio/create-directories! iso-archive-path)
         (nio/copy! (path/iso-name production volume) iso-archive-path)
         (set-file-permissions (file iso-archive-path))))
     (prod/set-state-archived! production))))
