   (let [responses (-> routing-entry :meta :responses)
         reducer (fn [so [status-code schema]]
                   (t/track
-                    (format "Describing %d response." status-code)
+                    #(format "Describing %d response." status-code)
                     (let [schema-meta (meta schema)
                           description (or (:description schema-meta)
                                           (:doc schema-meta)

  (as a path string)."
  [swagger-options swagger-object schema]
  (cond-let
    [schema-name (s/schema-name schema)
     schema-ns (-> schema meta :ns)]

    (or (nil? schema-name) (nil? schema-ns))
    (throw (ex-info "Unable to create a Swagger schema from an anonymous Prismatic schema."
                    schema))

    ;; Avoid forward slash in the swagger name, as that's problematic.
    [swagger-name (str schema-ns \: schema-name)

  Returns the modified swagger-object."
  [swagger-options swagger-object routing-entry]
  (t/track
    #(format "Describing endpoint %s `/%s'."
            (-> routing-entry :method name .toUpperCase)
            (->> routing-entry :path (str/join "/")))
    (let [path-str (-> routing-entry :path path->str)
