     {:pass? true}
     {:pass? false
      :expected (:description matcher)
-     :was ((:describe-mismatch matcher) a)}))
+     :was ((:describe-mismatch matcher describe-class-mismatch) a)
+     :matcher matcher}))

    (matcha/run-match matcha/vector? 1) ; => fails"}
  vector?
  {:match core/vector?
   :description "(vector?)"
   :describe-mismatch describe-class-mismatch})

(def
  ^{:doc

  (matcha/run-match (matcha/instance? clojure.lang.Keyword) 1) ; => fails"
  [klazz]
  {:match #(core/instance? klazz %)
   :description (str "an instance of " (.getName ^java.lang.Class klazz))})

(def
  ^{:doc
