diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index e322f0e..5bedf29 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -677,7 +677,7 @@
         (let* ((iri (trim-blanks (gui:text iri-entry))))
           (open-iri iri main-window nil))))))
 
-(defun back-iri-clsr (main-window)
+(defun up-iri-clsr (main-window)
   (lambda ()
     (with-accessors ((tool-bar tool-bar)) main-window
       (with-accessors ((iri-entry iri-entry)) tool-bar
@@ -689,14 +689,13 @@
             (setf (gui:text iri-entry) to-parent-iri)
             (open-iri to-parent-iri main-window t)))))))
 
-(defun up-iri-clsr (main-window)
+(defun back-iri-clsr (main-window)
   (lambda ()
     (with-accessors ((tool-bar tool-bar)) main-window
       (with-accessors ((iri-entry iri-entry)) tool-bar
-        (let ((iri-visited (cev:enqueue-request-and-wait-results :iri-to-parent-path
+        (let ((iri-visited (cev:enqueue-request-and-wait-results :gemini-pop-url-from-history
                                                                  1
-                                                                 ev:+standard-event-priority+
-                                                                 (gui:text iri-entry))))
+                                                                 ev:+standard-event-priority+)))
           (when (string-not-empty-p iri-visited)
             (setf (gui:text iri-entry) iri-visited)
             (open-iri iri-visited main-window t)))))))