diff --git a/lisp/org.el b/lisp/org.el
index 061776065..ddffb645c 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9197,7 +9197,8 @@ non-nil."
 			 (cdr (assoc-string
 			       (completing-read
 				"Which function for creating the link? "
-				(mapcar #'car results-alist) nil t name)
+				(mapcar #'car results-alist)
+				nil t (symbol-name name))
 			       results-alist)))
 		  t))))
 	(setq link (plist-get org-store-link-plist :link))