diff --git a/lisp/org.el b/lisp/org.el
index 2c489efc8..8a008476d 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10471,7 +10471,7 @@ See `read-file-name' for a description of parameters."
             (listp (second args)))
        (let ((ido-enter-matching-directory nil))
          (apply 'ido-read-file-name args))
-     (apply 'read-file-name args))))
+     (apply (or read-file-name-function 'read-file-name) args))))
 
 (defun org-completing-read (&rest args)
   "Completing-read with SPACE being a normal character."