               (try-re expected actual re-matches)
             
               (same-lengths? actual expected)
-              (apply actual-x-contains? [actual expected looseness])
+              (match? actual expected looseness)
 
               :else
               (tag-as-chatty-falsehood

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

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

;;


(defn match? [actual expected looseness]
  (let [comparison (compare-results (midje-classification actual) actual expected looseness)]
    (or (total-match? comparison)
        (apply noted-falsehood
               (cons (best-actual-match (midje-classification actual) comparison)
                     (best-expected-match (midje-classification actual) comparison expected))))))

;; The interface

(defn- container-checker-maker [name checker-fn]
