 
           ;; Write the raw return value of the entire program to the
           ;; logs directory.
+          (println "before raw.json")
           (spit "target/logs/raw.json" (json/generate-string return))
 
+          (println "before env.json")
           (spit "target/logs/env.json" (json/generate-string (evaluate (:env config) config)))
+
+          (println "before harvest.json")
           ;; Write any harvested values to the logs directory.
           (spit "target/logs/harvest.json"
                 (json/generate-string

                           {(keyword hkey) (harvest return config hkey [])})
                         (-> config :harvest)))))

          ;; Write the failing returns to the logs directory and exit with
          ;; the count of the failures.
          (let [failures (->> (returns return)

                              (filter #(and (-> % :throw)
                                            (-> % :exit :value zero? not))))
                num-failures (count failures)]
            (println "before failures.json")
            (spit "target/logs/failures.json" (json/generate-string failures))
            (log logger :info (str "Failures: " num-failures))
            (log logger :info (str "Seed: " (.getTime effective)))
