diff --git a/src/gemini-viewer.lisp b/src/gemini-viewer.lisp
index 22772d6..c16168a 100644
--- a/src/gemini-viewer.lisp
+++ b/src/gemini-viewer.lisp
@@ -560,6 +560,7 @@
   (when-let* ((metadata (message-window:metadata window))
               (source   (gemini-metadata-source-file metadata))
               (last     (misc:safe-last-elt (gemini-metadata-history metadata))))
+    (misc:dbg "source ~a" source)
     (setf (message-window:source-text window) source)
     (draw window)
     (ui:info-message (format nil (_ "Viewing source of: ~a") last))))
diff --git a/src/program-events.lisp b/src/program-events.lisp
index 83aa369..60b0738 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -983,7 +983,7 @@
           (gemini-viewer:append-metadata-source window-metadata source))
         (progn
           (setf (message-window:source-text win) rendered-text)
-          (setf (gemini-viewer:gemini-metadata-source-file window-metadata) rendered-text)
+          (setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
           (setf (gemini-viewer:gemini-metadata-links window-metadata) links)))))
 
 (defmethod process-event ((object gemini-got-line-event))