 
 
 (defn- domain [url]
-  (last (re-find #"^https?://([^/]+)" url)))
+  (last (re-find #"^https?://([^/]+)" (str url))))
 
 (defn- badge-image [input]
   (let [image (if (map? input) (get-in input [:badge :image] "") input)]

                                                            :mtime now}) (:evidence assertion))
                   :else [])
        badge  (if (map? (:badge assertion)) (:badge assertion) (http/json-get (:badge assertion)))
        related (filter #(keyword "@language") (cons badge (get badge :related [])))
        default-language (get badge (keyword "@language") "")]

    (assoc initial
           :badge (merge {:id ""
                          :remote_url nil

                          :published 0
                          :last_received 0
                          :recipient_count 0}
                          (apply merge-with (cons concat (map parser (cons badge related)))))
           :issued_on  (u/str->epoch (:issuedOn assertion))
           :expires_on (u/str->epoch (:expires assertion))
           :evidence evidence)))

;;;

(defmethod badge-content :default [initial assertion]
