 (defn chatty-checker-falsehood? [value]
   (:midje/chatty-checker-falsehood (meta value)))
 
+(defn- add-actual [actual result]
+  (if (chatty-checker-falsehood? result)
+    (merge result {:actual actual})
+    result))
+  
 (defn chatty-checker? [fn]
   (:midje/chatty-checker (meta fn)))
 

              (try-re expected actual re-find)
                 
              :else
              (apply actual-x-contains? [actual expected looseness]))))))

(def just (container-checker-maker 'just
    (fn [actual expected looseness]

                  (try-re (pattern-fn expected) actual re-find)
                  
                  (expected-fits? actual expected)
                  (match?(take-fn (count expected) actual) expected looseness)

                  :else
                  (tag-as-chatty-falsehood
