diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index 6762e06..49a33d6 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -2103,7 +2103,7 @@ local file paths."
             :exclusive t))
 
 (defun init-main-window (starting-iri)
-  (setf gui:*debug-tk* nil)
+  (setf gui:*debug-tk* t)
   (gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
     (icons:load-icons)
     (setf gui-goodies:*toplevel* gui:*tk*)
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 23b4ed9..2b91f36 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -1381,11 +1381,14 @@ It an existing file path is provided the command will refuse to run."
                ;; in db (folder, timeline).
                (when-let* ((message        (db:find-message-id reply-id))
                            (reply-username (db:row-message-username message))
-                           (quoted-text    (db:row-message-rendered-text message))
-                           (lines          (split-lines quoted-text))
+                           (rendered-text  (db:row-message-rendered-text message))
+                           (lines          (split-lines rendered-text))
                            (quote-mark     (swconf:quote-char))
-                           (quoted-lines   (mapcar (lambda (a) (strcat quote-mark a))
-                                                   lines)))
+                           (quoted-text    (strcat quote-mark
+                                                   (join-with-strings lines
+                                                                      (format nil
+                                                                              "~%~a"
+                                                                              quote-mark)))))
                  (with-open-file (stream
                                   file
                                   :if-exists    :append