diff --git a/src/do_name.c b/src/do_name.c
index 5d5c419c6..5e869da67 100644
--- a/src/do_name.c
+++ b/src/do_name.c
@@ -1613,7 +1613,7 @@ char *buf;
         Sprintf(buf, "%s - %s",
                 x_monnam(mtmp, ARTICLE_NONE, (char *) 0, 0, TRUE),
                 mtmp->mcan ? coynames[SIZE(coynames) - 1]
-                           : coynames[rn2(SIZE(coynames) - 1)]);
+                           : coynames[mtmp->m_id % (SIZE(coynames) - 1)]);
     }
     return buf;
 }