       create-rdf ; create an rdf file
       add-to-db)) ; add it to the db so that the agadir machinery will pick it up
 
-(defn archive-distribution-master 
+(defn archive-distribution-master
   "Archive a distribution master .i.e. a DTB encoded with mp3 and packed up in one or more iso files"
   [production]
   (-> production

  the spool directory as ready for archiving and concludes the
  archiving process from the point of view of the production system."
  [production]
  (let [new-job 
        {:verzeichnis (container-id production)
         ;; :id (container-id production)
         ;; :verzeichnis (container-path production)

   :flags "x"
   :transaktions_status "pending"})

(defn container-id
  "Return the name of a archive spool directory for a given production"
  [{:keys [id iso-path]}]
  (cond
