      (binding [*out* writer
                *frame-options* (:frame-options options *frame-options*)
                clojure.test/*test-out* writer
-               *test-runner-state* (atom [])]
+               *test-runner-state* (atom {})]
        (clear-screen options)
        (let [f (start-flusher (:flush-interval options 10))
              t0 (System/nanoTime)


(def ^{:dynamic true
       :doc
       "holds an (atom []) of test results, for later analysis by the runner, iff the runner is reporting slow tests"}
  *test-runner-state* nil)

(def ^{:dynamic true

(defn format-slow-tests [results options]
  (let [slowest (->> results
                  :test-runner-state
                  vals
                  (sort-by :runtime)
                  reverse
                  (take (:slow-test-count options 10)))]
