 
    (ansi/color (printer/indent (pr-str (:expound/check-fn-call (first problems)))) :bad-value)
 
-   (*value-str-fn* spec-name form path (paths/value-in form path))
+   (*value-str-fn* spec-name form path (problems/value-in form path))
    (expected-str _type spec-name form path problems opts)))
 
 (defmethod expected-str :expound.problem/unknown [_type spec-name form path problems opts]

 Dispatch value:        `%s`"
     (pr-str mm)
     (pr-str retag)
     (pr-str (if retag (retag (paths/value-in form path)) nil)))))

(defmulti ^:no-doc problem-group-str (fn [type _spec-name _form _path _problems _opts] type))
(defmulti ^:no-doc expected-str (fn [type  _spec-name _form _path _problems _opts] type))

   "Cannot find spec for

%s"
   (show-spec-name spec-name (*value-str-fn* spec-name form path (problems/value-in form path)))))

(defmethod problem-group-str :expound.problem/missing-spec [type spec-name form path problems opts]
  (printer/format
