      (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))]
-         (fs/copy+ (path/iso-name production volume) iso-archive-path)))
+         (nio/create-directories! iso-archive-path)
+         (nio/copy! (path/iso-name production volume) iso-archive-path)))
      (set-file-permissions (file archive-path))
      (prod/set-state-archived! production))))
 

   (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 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))

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