diff --git a/src/gemini/gemini-parser.lisp b/src/gemini/gemini-parser.lisp index 3976446..949c8f6 100644 --- a/src/gemini/gemini-parser.lisp +++ b/src/gemini/gemini-parser.lisp @@ -249,7 +249,9 @@ (let* ((absolute-path-p (string-starts-with-p "/" link-value)) (path (if absolute-path-p link-value - (strcat (path-last-dir original-path) + (strcat (if original-path + (path-last-dir original-path) + "/") link-value)))) (make-gemini-uri original-host (normalize-path path)