diff --git a/lisp/ido.el b/lisp/ido.el
index cd1f9260262..4aef0f18347 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3305,7 +3305,7 @@ instead removed from the current item list."
                            name))
                        (split-string
                         (shell-command-to-string
-                         (concat "find "
+                         (concat find-program " "
                                  (shell-quote-argument dir)
                                  (if ido-case-fold " -iname " " -name ")
                                  (shell-quote-argument