         ret (reduce
              (fn [{:keys [failures iters nresults]} result]
                (when (:exception result)
-                 (.printStackTrace ^Throwable (:exception result)))
+                 (print-stack-trace (:exception result)))
                (if (:exception result)
-                 (prn result)
+                 (sprn result)
                  (progress))
                {:failures (+ failures (if (:exception result) 1 0))
                 :iters (+ iters (:iter result))


(ns clojure.test.generative.runner
  (:require
   [clojure.pprint :as pprint]
   [clojure.tools.namespace :as ns]
   [clojure.data.generators :as gen]
   [clojure.test.generative :as tgen]))

       read-string
       10000]])

(defn config
  "Returns runner configuration derived from system properties."
  []
  (reduce
   (fn [m [prop path coerce default]]
