     :break
     :break
     [:nest 2
-     (print-path (reverse (rest path))
+     (print-path (reverse (if (parent-is-sequence? error) (rest (rest path)) (rest path)))
                  leaf-node
                  orig-config)]
     :break

     :correct-paths (get-paths-for-type root-type typ)
     :confidence :high}))


(defn misspelled-misplaced-key [root-type parent-type bad-key value]
  (for [[ky _ [other-parent-type _ typ]] (*schema-rules* :-)
        :when (and

  (mapcat (fn [{:keys [key type-sig value] :as error}]
            (let [typ (first type-sig)
                  err' (unknown-key-error-help root-type typ key value)]
              (if (empty? err')
                [(assoc error :Error (:Error-type error))]
                (map #(assoc %
                           :path (:path error)
                           :value (:value error)
                           :type-sig (:type-sig error)
                           :orig-error error) err'))
              ))
        errors))

(defn type-check [root-type value]
