   [production sektion]
   (let [rdf (rdf/rdf production)
         entries (case sektion :master 2 :dist-master (inc (:volumes production)))]
-    (doseq [volume (range 1 entries)]
-      (let [rdf-path (container-rdf-path production sektion volume)]
-        (spit rdf-path rdf)))))
+    (let [rdf-path (container-rdf-path production sektion)]
+      (spit rdf-path rdf))))
 
 (defn- archive-sektion
   "Archive a `production` for given `sektion`. For the :master sektion

  and concludes the archiving process from the point of view of the
  production system."
  [production sektion]
  (let [volumes (inc (:volumes production))
        entries (case sektion :master 2 :dist-master volumes)]
    (doseq [volume (range 1 entries)]
      (let [new-job
            {:verzeichnis (container-id production sektion volume)
             :sektion (case sektion :master "master" :dist-master "cdimage")}
            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

(defn- container-rdf-path
  "Return the path to the rdf file in the archive spool for a given
  `production` and `sektion`"
  [production sektion]
  (let [path (container-id production sektion)
        rdf-name (str (container-id production sektion) ".rdf")]
    (.getPath (file spool-dir path rdf-name))))

(defn- add-to-db
  "Insert a `production` into the archive db for the given `sektion`.
