diff --git a/gravatar.lisp b/gravatar.lisp
index 926212a..ce238ee 100644
--- a/gravatar.lisp
+++ b/gravatar.lisp
@@ -25,7 +25,8 @@
+base-uri+
(hash email)
(drakma::alist-to-url-encoded-string parameters
- :utf-8))))
+ :utf-8
+ #'drakma:url-encode))))
(defun generate-profile-url (email type parameters)
(format nil "~Ag2-~A.~A~@[?~A~]"