   directory"
   [production sektion]
   (let [rdf (rdf/rdf production)
-        rdf-path (container-rdf-path production sektion)]
-    (spit rdf-path rdf)))
+        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)))))
 
 (defn- archive-sektion
   "Archive a `production` for given `sektion`. For the :master sektion

        (fs/copy-dir (path/recorded-path production) archive-path)
        :dist-master
        (doseq [volume (range 1 (inc (:volumes production)))]
          (let [iso-archive-name (str (container-id production :dist-master)
                                      (when (prod/multi-volume? production)
                                        (str  "_" volume))
                                      ".iso")
                iso-archive-path (.getPath (file archive-path iso-archive-name))]
            (fs/copy+ (path/iso-name production
                                     (when (prod/multi-volume? production) volume))

(defn- container-id
  "Return the name of a archive spool directory for a given
  `production` and `sektion`"
  ([production sektion]
   (container-id production sektion nil))
  ([production sektion volume]
   (case sektion
     :master (prod/dam-number production)
     :dist-master (str "ds" (:library_signature production)
                       (when (and volume
                                  (prod/multi-volume? production))
                         (str "_" volume))))))

(defn- container-path
  "Return the path to the archive spool directory for a given
