diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index bfbe424..9792554 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -128,6 +128,12 @@
           (fit-toc-char-width main-window toc-widget-width)))
       main-window)))
 
+(defun refresh-stream-frame (main-window)
+  (ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
+    (client-stream-frame::refresh-all-streams
+     (client-stream-frame::table (stream-frame main-window))
+     #'client-stream-frame::make-requests-all-rows)))
+
 (defun slurp-gemini-stream (main-window iri stream-wrapper
                             &key
                               (use-cache t)
@@ -215,10 +221,7 @@
           (set-certificate-button-inactive main-window)))
     (ev:with-enqueued-process-and-unblock ()
       (set-gemlog-toolbar-button-appearance main-window iri))
-    (ev:with-enqueued-process-and-unblock (program-events:+minimum-event-priority+)
-      (client-stream-frame::refresh-all-streams
-       (client-stream-frame::table (stream-frame main-window))
-       #'client-stream-frame::make-requests-all-rows))))
+    (refresh-stream-frame main-window)))
 
 (defun set-gemlog-toolbar-button-appearance (main-window iri)
   (if (comm:make-request :gemini-gemlog-subscribed-p 1 iri)
@@ -1443,7 +1446,8 @@ local file paths."
                 (let ((background-stream (make-instance 'gemini-stream
                                                         :server-stream-handle iri
                                                         :status               status)))
-                  (push-db-stream background-stream))))
+                  (push-db-stream background-stream)
+                  (refresh-stream-frame main-window))))
              (t
               (error "Unrecognized stream status for address ~s: ~s" iri status)))))))))