   (let [res (normalize&check-config-object schema profile-names config-object)]
     (if (range-error? res)
       (c/error `make-configuration
-               "range error in configuration map"
-               (range-error-path res)
-               (range-error-value res)
-               (if-let [r (range-error-range res)]
-                 (range-description r)
-                 "<no range>")
-               (range-error-range res))
+               (str "range error at path "
+                    (vec (range-error-path res))
+                    " in configuration map: "
+                    "value "
+                    (range-error-value res)
+                    " should be in range "
+                    (if-let [r (range-error-range res)]
+                      (range-description r)
+                      "<no range>")
+                    " but isn't")
+               res)
       (really-make-configuration res schema))))
 
 (defn diff-configuration-objects

                    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)

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

(define-record-type
