              nil)]
     (if (range-error? val)
       (c/error `setting-default-value
-               "setting is missing in configuration map"
-               (range-error-path val)
-               (range-error-value val)
-               (range-description (range-error-range val))
-               (range-error-range val))
+               (str "setting " (vec (range-error-path val)) " is missing in configuration map")
+               val)
       val)))
 
 (define-record-type

                    cf (get cf (section-key sec) ::section-not-found)]
                (case cf
                  ::section-not-found
                  (c/assertion-violation `access-section
                                         "section not found"
                                         (map section-key sections) config)
                  
                  (letfn [(schemarec [schema cf]
                            (cond
                              (map-schema? schema)

                  (fn [cf]
                    (let [val (get cf (setting-key setting) ::setting-not-found)]
                      (if (= val ::setting-not-found)
                        (let [path (map section-key sections)]
                          (c/assertion-violation `access
                                                 (str "setting " (setting-key setting)
                                                      " not found at path " (vec path))
                                                 path setting config))
                        val)))))

(defn section-subconfig
