diff --git a/src/filesystem-tree-window.lisp b/src/filesystem-tree-window.lisp
index 0cc3048..e1382c8 100644
--- a/src/filesystem-tree-window.lisp
+++ b/src/filesystem-tree-window.lisp
@@ -431,7 +431,7 @@
 (defun download-treenode (window remote-path
                           &optional
                             (destination-file (make-temporary-file-from-path remote-path)))
-  (when-let ((type (filesystem-query-treenode window remote-path :type)))
+  (when-let ((type (filesystem-query-path window remote-path :type)))
     (let ((dirp (eq type :directory)))
       (fs:create-file destination-file)
       (funcall (filesystem-download-function window)
@@ -498,7 +498,7 @@
                     (win-clear window :redraw nil)
                     (resync-rows-db window :redraw t :selected-path parent-path))))))))))
 
-(defun filesystem-query-treenode (window path what)
+(defun filesystem-query-path (window path what)
   (assert (member what '(:size :size-string :permissions :permissions-string :type)))
   (funcall (filesystem-query-path-function window)
            path
@@ -596,9 +596,9 @@
                                                              dir
                                                              filesystem-expand-function))
                 (all-files    (remove-if (lambda (a)
-                                           (let* ((type (filesystem-query-treenode window
-                                                                                   a
-                                                                                   :type)))
+                                           (let* ((type (filesystem-query-path window
+                                                                               a
+                                                                               :type)))
                                              (or (null type)
                                                  (eq type :directory))))
                                          all-children)))
diff --git a/src/package.lisp b/src/package.lisp
index b7b1986..195944c 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2055,7 +2055,7 @@
    :download-treenode
    :upload-treenode
    :recursive-delete-node
-   :filesystem-query-treenode
+   :filesystem-query-path
    :mark-node
    :open-node
    :edit-node
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 4836eda..9f80ce2 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -2783,9 +2783,9 @@ if the selected item represents a directory."
   (when-let* ((win         *filesystem-explorer-window*)
               (fields      (line-oriented-window:selected-row-fields win))
               (path        (fstree:tree-path  fields))
-              (size        (fstree:filesystem-query-treenode win path :size-string))
-              (permissions (fstree:filesystem-query-treenode win path :permissions-string))
-              (entry-type  (fstree:filesystem-query-treenode win path :type))
+              (size        (fstree:filesystem-query-path win path :size-string))
+              (permissions (fstree:filesystem-query-path win path :permissions-string))
+              (entry-type  (fstree:filesystem-query-path win path :type))
               (bg          (swconf:win-bg swconf:+key-help-dialog+))
               (fg          (swconf:win-fg swconf:+key-help-dialog+)))
     (windows:make-blocking-message-dialog *main-window*