diff --git a/src/filesystem-tree-window.lisp b/src/filesystem-tree-window.lisp
index e1382c8..0b0a089 100644
--- a/src/filesystem-tree-window.lisp
+++ b/src/filesystem-tree-window.lisp
@@ -428,9 +428,9 @@
     (win-clear window :redraw nil)
     (resync-rows-db window :redraw t :selected-path path)))
 
-(defun download-treenode (window remote-path
-                          &optional
-                            (destination-file (make-temporary-file-from-path remote-path)))
+(defun download-path (window remote-path
+                      &optional
+                        (destination-file (make-temporary-file-from-path remote-path)))
   (when-let ((type (filesystem-query-path window remote-path :type)))
     (let ((dirp (eq type :directory)))
       (fs:create-file destination-file)
@@ -566,7 +566,7 @@
               (node-path     (tree-path node-data)))
     (if (tree-dir-p node-data)
         (expand-treenode window node-path)
-        (let ((downloaded-path (download-treenode window node-path)))
+        (let ((downloaded-path (download-path window node-path)))
           (os-utils:open-resource-with-external-program downloaded-path nil)))))
 
 (defun edit-node (window path)
@@ -576,7 +576,7 @@
               (node-path     (tree-path node-data)))
     (if (tree-dir-p node-data)
         (expand-treenode window node-path)
-        (let ((downloaded-path (download-treenode window node-path)))
+        (let ((downloaded-path (download-path window node-path)))
           (croatoan:end-screen)
           (os-utils:open-resource-with-external-program downloaded-path nil :open-for-edit t)
           (upload-treenode window
diff --git a/src/package.lisp b/src/package.lisp
index 195944c..3281a12 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2052,7 +2052,7 @@
    :rename-treenode
    :delete-treenode
    :create-treenode
-   :download-treenode
+   :download-path
    :upload-treenode
    :recursive-delete-node
    :filesystem-query-path
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 9f80ce2..345ea79 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -2534,9 +2534,9 @@ printed, on the main window."
                      (with-blocking-notify-procedure
                          ((format nil (_ "Starting download of ~a") path)
                           (format nil (_ "Download completed in ~a") destination-file))
-                       (fstree:download-treenode win path destination-file)
+                       (fstree:download-path win path destination-file)
                        (info-message destination-file))
-                     (fstree:download-treenode win path destination-file))))))
+                     (fstree:download-path win path destination-file))))))
       (if force
           (on-input-complete output-file)
           (ask-string-input #'on-input-complete
@@ -2584,9 +2584,9 @@ Note: existing file will be overwritten."
                                             (_ "Download of ~a completed in ~a")
                                             remote-file
                                             local-file))
-                                 (fstree:download-treenode win
-                                                            remote-file
-                                                            local-file))))))))))
+                                 (fstree:download-path win
+                                                       remote-file
+                                                       local-file))))))))))
       (ask-string-input #'on-input-destination-dir
                         :initial-value local-dir
                         :complete-fn   #'complete:directory-complete