   (do (when (nil? @*urlfetch-service*)
 	(reset! *urlfetch-service* (URLFetchServiceFactory/getURLFetchService)))
       @*urlfetch-service*))
+
+(defn- urlify [url] (if (string? url) (java.net.URL. url) url))
 
 (defrecord HTTPResponse [content
 			 final-url

      (isCancelled [_] (.isCancelled f))
      (isDone [_] (.isDone f))
      (cancel [_ interrupt?] (.cancel f interrupt?)))))

            FetchOptions$Builder
            HTTPRequest
            HTTPMethod])
  (:require [clojure.contrib.string :as string]
            [appengine-magic.services.memcache :as memcache]))

(defonce *urlfetch-service* (atom nil))

