           (mapconcat (lambda (arg)
                        (concat (url-hexify-string (car arg))
                                "="
-                               (url-hexify-string (plaster-to-string (cdr arg)))))
+                               (url-hexify-string (format "%s" (cdr arg)))))
                      params
                      "&")))
     (let ((response (with-current-buffer (url-retrieve-synchronously endpoint)

Optional argument PARENT The ID of the parent paste to annotate."
  (interactive)
  (let ((id (or parent plaster-parent plaster-id (read-string "Parent paste: "))))
    (with-current-buffer (generate-new-buffer (concat "Annotation to " (plaster-to-string id)))
      (setq plaster-parent id)
      (plaster-mode)
      (switch-to-buffer (current-buffer)))))

                      (re-search-forward "^$")
                      (delete-region (point) (point-min))
                      (json-read-from-string (buffer-string)))))
      (unless (= 200 (alist-get 'status response))
        (error "Plaster request failed: %s" (alist-get 'message response)))
      (setq plaster-session-token (plaster-find-session-token url-cookie-storage))
      (alist-get 'data response))))

(defun plaster-login (&optional username password)
  "Log in to the remote plaster server.
