diff --git a/src/insight.c b/src/insight.c
index a1c44b6c9..9f0f71059 100644
--- a/src/insight.c
+++ b/src/insight.c
@@ -3046,12 +3046,14 @@ list_genocided(char defquery, boolean ask)
     ngone = num_gone(mvflags, mindx);
 
     /* genocided or extinct species list */
-    if (ngenocided != 0 || nextinct != 0) {
+    if (ngone > 0) {
         Sprintf(buf, "Do you want a list of %sspecies%s%s?",
                 (nextinct && !ngenocided) ? "extinct " : "",
                 (ngenocided) ? " genocided" : "",
                 (nextinct && ngenocided) ? " and extinct" : "");
-        c = ask ? yn_function(buf, ynaqchars, defquery, TRUE) : defquery;
+        c = ask ? yn_function(buf, (ngone > 1) ? "ynaq" : "ynq\033a",
+                              defquery, TRUE)
+                : defquery;
         if (c == 'q')
             done_stopprint++;
         if (c == 'y' || c == 'a') {