diff --git a/doom/.config/doom/README.org b/doom/.config/doom/README.org
index 1e51739..7268777 100644
--- a/doom/.config/doom/README.org
+++ b/doom/.config/doom/README.org
@@ -2171,7 +2171,7 @@ With prefix arg, prompt for remote SSH host (default: lazyworkhorse)."
   "Link an existing Hermes session to the current project.
 If SESSION-ID is empty, show a menu of recent sessions to browse."
   (interactive
-   (let ((id (read-string "Session ID (empty to browse recent): ")))
+   (let ((id (read-string "Link external session (ID, empty to browse recent globally): ")))
      (if (string-empty-p id)
          (let* ((output (shell-command-to-string "hermes sessions list --limit 50 2>&1"))
                 (lines (split-string output "\n" t))
@@ -2244,7 +2244,7 @@ If SESSION-ID is empty, show a menu of recent sessions to browse."
                  (choice (completing-read "Remove Hermes session: " items nil t))
                  (idx (cl-position choice items :test #'string=))
                  (target (nth idx sessions)))
-            (when (y-or-p-n (format "Remove \"%s\"? " (plist-get target :title)))
+            (when (y-or-n-p (format "Remove \"%s\"? " (plist-get target :title)))
               (let ((kept (cl-remove-if
                            (lambda (s)
                              (string= (plist-get s :id) (plist-get target :id)))
diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el
index f871f55..e6e9e8a 100644
--- a/doom/.config/doom/config.el
+++ b/doom/.config/doom/config.el
@@ -1367,7 +1367,7 @@ With prefix arg, prompt for remote SSH host (default: lazyworkhorse)."
   "Link an existing Hermes session to the current project.
 If SESSION-ID is empty, show a menu of recent sessions to browse."
   (interactive
-   (let ((id (read-string "Session ID (empty to browse recent): ")))
+   (let ((id (read-string "Link external session (ID, empty to browse recent globally): ")))
      (if (string-empty-p id)
          (let* ((output (shell-command-to-string "hermes sessions list --limit 50 2>&1"))
                 (lines (split-string output "\n" t))
@@ -1440,7 +1440,7 @@ If SESSION-ID is empty, show a menu of recent sessions to browse."
                  (choice (completing-read "Remove Hermes session: " items nil t))
                  (idx (cl-position choice items :test #'string=))
                  (target (nth idx sessions)))
-            (when (y-or-p-n (format "Remove \"%s\"? " (plist-get target :title)))
+            (when (y-or-n-p (format "Remove \"%s\"? " (plist-get target :title)))
               (let ((kept (cl-remove-if
                            (lambda (s)
                              (string= (plist-get s :id) (plist-get target :id)))