diff --git a/src/main/url.cl b/src/main/url.cl
index 02c042d..fe92e60 100644
--- a/src/main/url.cl
+++ b/src/main/url.cl
@@ -236,8 +236,10 @@ part of the same scheme."))
 (defmethod print-object ((obj url) stream)
   (cond
     ((or *print-readably* *print-escape*)
-     (print-unreadable-object (obj stream :type t :identity nil)
-       (format stream "~S" (url-string obj))))
+     (if *read-eval*
+	 (format stream "#.(~S ~S)" 'parse-url-from-string (url-string obj))
+	 (print-unreadable-object (obj stream :type t :identity nil)
+	   (format stream "~S" (url-string obj)))))
     (t
      (write-string (url-string obj) stream))))