                      (let [res
                            (normalize&check-config-map (section-schema section) profile-names {}
                                                        inherited-map (concat path [key]))]
-                       (assert (not (range-error? res)) (pr-str res))
+                       (c/assert (not (range-error? res)) (pr-str res))
                        {key res}))))]
 
          (let [sections-map (schema-sections-map schema)

              (fn [range path f res val]
                (loop [rs rs]
                  (if (empty? rs)
                    (assert false)
                    (let [this-range (first rs)
                          v ((range-completer this-range) this-range path val)]
                      (if (range-error? v)

                   :else (make-range-error this-range ky vl))))
              (fn [this-range path f res val]
                (let [v ((range-completer this-range) this-range path val)]
                  (c/assert (not (range-error? v)) (pr-str v))
                  (reduce (fn [res [k v]]
                            ((range-reduce val-range) val-range (conj path k) f
                             ((range-reduce key-range) key-range path f res k)
