diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index d6360e50227..0973f2bc5f2 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -176,7 +176,7 @@ If INTERACTIVE is non-nil, don't compile the fortune file afterwards."
 	  (fortune-compile file)))))
 
 (defun fortune-ask-file ()
-  "Asks the user for a file name."
+  "Ask the user for the file name of the fortune file."
   (expand-file-name
    (read-file-name
     "Fortune file to use: "