 Optional argument DOMAIN The cookie's active domain."
   (let ((time (or time (format-time-string "%a, %d %b %Y %H:%M:%S %z" (+ (float-time) 3600))))
         (path (or path "/"))
-        (domain (or domain (url-host (url-generic-parse-url plaster-api)))))
+        (domain (or domain (url-host (url-generic-parse-url plaster-root)))))
     `[url-cookie ,var ,val ,time ,path ,domain nil]))
 
 (defun plaster-api (endpoint)

  "Find the radiance-session token in the cookie jar.

Argument COOKIES The cookie jar as used in ‘url-cookie-list’."
  (let* ((domain (url-host (url-generic-parse-url plaster-api)))
         (cookies (dolist (cookie cookies)
                    (when (or (cl-search (car cookie) domain)
                              (cl-search domain (car cookie)))

  (let ((url-request-method "POST")
        (url-cookie-storage
          (when plaster-session-token
            `((,(url-host (url-generic-parse-url plaster-root))
               ,(plaster-make-cookie "radiance-session" plaster-session-token)))))
        (url-request-extra-headers
          '(("Content-Type" . "application/x-www-form-urlencoded")))
