     (set-last-namespace-shown! namespace-symbol)))
 
 (defn starting-fact-stream []
+  (reset! fact-counter 0)
   (set-last-namespace-shown! nil))
 
 (defn starting-to-check-fact [fact]

(ns ^{:doc "TAP output. See http://testanything.org"}
    midje.emission.plugins.tap
  (:use midje.emission.util)
  (:require [midje.data.fact :as fact]
            [midje.emission.state :as state]


(defn finishing-fact-stream [midje-counters clojure-test-map]
  (let [passes-and-failures (+ (:midje-passes midje-counters) (:midje-failures midje-counters))]
    (util/emit-one-line (str 1 ".." @fact-counter
                             " # midje count: " passes-and-failures
                             (when-not passes-and-failures
                               "# No facts were checked. Is that what you wanted?")))))

(defn make-map [& keys]
  (zipmap keys
