   :print-facts        (2)  -- print fact descriptions in addition to namespaces.
 "} midje-print-levels)
 
-(def midje-print-level midje-print-levels)
+(defn alternate-doc-source [copy original]
+  (intern *ns* (vary-meta copy assoc :doc (:doc (meta (resolve original))))))
+
+(alternate-doc-source 'midje-print-level 'midje-print-levels)
+
 
 (def ^{:doc "
   * A common form:

    (fact :integration ...)
    (fact {:priority 5} ...)
"} midje-facts)
(def midje-fact midje-facts)


(def ^{:doc "
  (facts \"about checkers\"

       ...)
"} midje-setup)

(alternate-doc-source 'midje-teardown 'midje-setup)

(def ^{:doc "
  * For checks
