diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index edec2d8c80c..4d3f6f917e7 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -89,7 +89,8 @@ the current %s and exit."
 				      action object))))
 	 (user-keys (if action-alist
 			(concat (mapconcat (lambda (elt)
-					     (char-to-string (car elt)))
+					     (key-description
+					      (char-to-string (car elt))))
 					   action-alist ", ")
 				" ")
 		      ""))