     (doseq [volume (range 1 (inc (:volumes production)))]
       (let [iso-archive-name (str product_number (when multi-volume? (str "_" volume)) ".iso")
             iso-archive-path (.getPath (file other-spool-dir iso-archive-name))]
-        (fs/copy (path/iso-name production volume) iso-archive-path)))
+        (fs/copy (path/iso-name production volume) iso-archive-path)
+        (set-file-permissions (file iso-archive-path))))
     (prod/set-state! production "archived")))

          (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)))
        (prod/set-state! production "archived")))))

(defmethod archive "other"

      (log/errorf "Archive path %s already exists" archive-path)
      (case sektion
        :master
        (do (fs/copy-dir (path/recorded-path production) archive-path)
            (set-file-permissions (file archive-path)))
        :dist-master
        (do
          (doseq [volume (range 1 (inc (:volumes production)))]
            (let [iso-archive-name (str (container-id production sektion volume) ".iso")
                  iso-archive-path (.getPath (file archive-path iso-archive-name))]
              (fs/copy+ (path/iso-name production volume) iso-archive-path)))
          (set-file-permissions (file archive-path)))))))

(defn- create-rdf
  "Create an rdf file and place it in the appropriate archive spool
