From eb14b342df05f23aade76f6fb5bb73358dfd5c2b Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 2 Jun 2024 20:58:12 +0200
Subject: [PATCH] - [GUI] used the correct stream for rendering the IRI.

---
 src/gui/client/main-window.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index fd2cd9d..90a9573 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -597,7 +597,8 @@ local file paths."
                           (let ((parsed (iri:iri-parse (get-address-bar-text main-window))))
                             (setf (uri:path parsed)
                                   (fs:normalize-path link-value))
-                            (enqueue-add-link-to-tour (iri:render-iri parsed)
+                            (enqueue-add-link-to-tour (with-output-to-string (stream)
+                                                        (iri:render-iri parsed stream))
                                                       link-name))))))
     (lambda (e)
       (declare (ignore e))