diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp index 9fa98c6..b300068 100644 --- a/src/gemini/client.lisp +++ b/src/gemini/client.lisp @@ -528,9 +528,10 @@ (strcat meta-path "?" meta-query) meta-path)) (new-url (gemini-parser:absolutize-link meta-path-query - (uri:host iri-from) - (uri:port iri-from) - (uri:path iri-from)))) + (uri:host iri-from) + (uri:port iri-from) + (uri:path iri-from) + (uri:query iri-from)))) new-url))))) (defmethod build-redirect-iri (meta (iri-from string))