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

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


                      :else
                      (t/track
                        #(format "Describing query parameter `%s'." (name k))
                        (let [schema-description (simple->swagger-schema swagger-options key-schema)
                              full-description (assoc schema-description
                                                 :name k
