diff --git a/src/fns.c b/src/fns.c
index 21dd3cf6671..75c0dfbf8a5 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1150,6 +1150,9 @@ Also accepts Space to mean yes, or Delete to mean no.")
 	}
     }
   UNGCPRO;
+
+  message ("%s(y or n) %c", XSTRING (xprompt)->data, answer ? 'y' : 'n');
+
   return answer ? Qt : Qnil;
 }