Cannot report error when multi-spec is combined with another spec via and

[bhb]

(defmulti fruit :fruit/type)
(defmethod fruit :orange [_]
  (s/keys))
(defmethod fruit :apple [_]
  (s/keys))


(s/def ::fruit1 (s/multi-spec fruit :fruit/type))
(expound/expound ::fruit1 {}) ;; works

(s/def ::fruit2 (s/and
                 map?
                 (s/multi-spec fruit :fruit/type)))
(expound/expound ::fruit2 {:fruit/type :orange}) ;; works
(expound/expound ::fruit2 {:fruit/type :banana}) ;; error