       (log/errorf "Archive path %s already exists" archive-path)
       (case sektion
         :master
-        (fs/copy-dir (path/recorded-path production) archive-path)
+        (do (fs/copy-dir (path/recorded-path production) archive-path)
+            (set-file-permissions (file archive-path)))
         :dist-master
-        (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)))))))
+        (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

        job (merge default-job new-job)]
    (jdbc/insert! db :container job)))

(defn- copy-files
  "Copy a `production` to the archive spool dir for the given
  `sektion`. For a production master copy the whole DTB including wav

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

(defmethod archive "other"
