   (order-free-compare-results expected 
                               (feasible-permutations expected)
                               (fn [permutation]
-                                (compare-one-seq-permutation (midje-classification actual)
-                                                             actual
+                                (compare-one-seq-permutation actual
                                                              permutation
                                                              looseness))))
 

  "Compare actual elements to expected, which is one of perhaps many
   permutations of the original expected list. looseness is a subset of
   #{:gaps-ok :in-any-order}."
  [midje-classification actual expected looseness]
  (let [starting-candidate (assoc (base-starting-candidate expected) :expected-skipped-over [])
        gaps-ok? (some #{:gaps-ok} looseness)]
    (loop [walking-actual   actual

  (order-free-compare-results expected 
                              (feasible-permutations (keys expected))
                              (fn [permutation]
                                (compare-one-map-permutation actual
                                                             expected
                                                             permutation))))

