                               (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)))


          ;; Write the raw return value of the entire program to the
          ;; logs directory.
          (spit "target/logs/raw.json" (json/generate-string return))

          (spit "target/logs/env.json" (json/generate-string (evaluate (:env config) config)))
          ;; Write any harvested values to the logs directory.
          (spit "target/logs/harvest.json"
                (json/generate-string

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

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