client.clj

(defn follow-redirect
  [client {:keys [uri url scheme server-name server-port] :as req}
   {:keys [trace-redirects] :as resp}]
  (let [url (or url (str (name scheme) "://" server-name
                         (when server-port (str ":" server-port))
                         uri))
        raw-redirect (get-in resp [:headers "location"])
        redirect (str (URL. (URL. url) raw-redirect))]
    ((wrap-redirects client) (-> req
                                 (merge (parse-url redirect))
                                 (dissoc :query-params)
                                 (assoc :url redirect
                                        :trace-redirects trace-redirects)))))

added in line 11 basically, but this might conflict with with custom middleware that does something 'funky'. I think correct behaviour is to remove the inconsistent parsed bits