diff --git a/lisp/org-table.el b/lisp/org-table.el
index 81c681bf0..65261663d 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -4141,7 +4141,7 @@ to execute outside of tables."
 	 '(arg)
 	 (concat "In tables, run `" (symbol-name fun) "'.\n"
 		 "Outside of tables, run the binding of `"
-		 (mapconcat (lambda (x) (format "%s" x)) keys "' or `")
+		 (mapconcat #'key-description keys "' or `")
 		 "'.")
 	 '(interactive "p")
 	 (list 'if
diff --git a/lisp/org.el b/lisp/org.el
index 3e83043db..3001640fe 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19590,9 +19590,6 @@ because, in this case the deletion might narrow the column."
 (put 'org-self-insert-command 'pabbrev-expand-after-command t)
 (put 'orgtbl-self-insert-command 'pabbrev-expand-after-command t)
 
-;; How to do this: Measure non-white length of current string
-;; If equal to column width, we should realign.
-
 (defun org-remap (map &rest commands)
   "In MAP, remap the functions given in COMMANDS.
 COMMANDS is a list of alternating OLDDEF NEWDEF command names."