     (-> p
         prod/create!
         prod/set-state-structured!
-        (comment
-          (copy-sigtuna-project!)))))
+        copy-sigtuna-project!)))
 
 (defn print-stats
   "Print a summary of all the productions that are about to be migrated"

  (doseq [p (filter recording-with-obi? productions)]
    (-> p
        prod/create!
        prod/set-state-structured!)
    (spit move-script
          (format "mv %s %s\n" (obi-project-path p) (path/recording-path p))
          :append true)
    (comment
      (create-obi-config-file!))))

(defn create-recording-productions-without-obi!
  "Create all productions with state \"recording\" with wav files that

          (copy-struct-file!)
          (convert-struct-file!)))))

(defn copy-obi-project! [production]
  (spit move-script
        (format "mv %s %s\n"
                (obi-project-path production)
                (path/recording-path production))
        :append true)
  production)

(defn create-recording-productions-with-obi!
  "Create all productions with state \"recording\" with wav files that
  contain an obi project. Add to the db and create the directories.
