diff --git a/lisp/org.el b/lisp/org.el
index 99014044d..28aa9a21c 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12032,7 +12032,9 @@ allowed value."
 		(or (car (nth (1- value) allowed))
 		    (car (org-last allowed))))
 	       (allowed
-		(message "Select 1-9,0, [RET]: %s" (mapconcat 'car allowed " "))
+		(message "Select 1-9,0, [RET%s]: %s"
+			 (if cur (concat "=" cur) "")
+			 (mapconcat 'car allowed " "))
 		(setq rpl (read-char-exclusive))
 		(if (equal rpl ?\r)
 		    (setq val cur)