    (println "expected:" (pr-str (:expected m)))
    (println "  actual:" (pr-str (:actual m))))
 
-(defmethod clojure.test/report :mock-expected-result-functional-failure [m]
+(defmethod clojure.test/old-report :mock-expected-result-functional-failure [m]
 ;  (with-test-out
    (inc-report-counter :fail)
    (println "\nFAIL at" (midje-position-string (:position m)))

   (println "You never said" (:name (meta (:function m))) "would be called with these arguments:")
   (println (pr-str (:actual m))))

(defmethod clojure.test/report :mock-incorrect-call-count [m]
;  (with-test-out
   (inc-report-counter :fail)
   (println "\nFAIL for" (midje-position-string (:position m)))

   (println (:expected m) "should be called at least once."))


(defmethod clojure.test/old-report :mock-expected-result-failure [m]
;  (with-test-out
   (inc-report-counter :fail)
   (println "\nFAIL at" (midje-position-string (:position m)))
