improve pluralization on some words ending with a k-sound

fixes #245
2019-11-16 08:27:07 -05:00
parent 8a7169eda9
commit 8b1c6148f6
2 changed files with 5 additions and 1 deletions
--- a/src/objnam.c
+++ b/src/objnam.c
@@ -2435,7 +2435,10 @@ const char *oldstr;

    /* Ends in z, x, s, ch, sh; add an "es" */
    if (index("zxs", lo_c)
-        || (len >= 2 && lo_c == 'h' && index("cs", lowc(*(spot - 1))))
+        || (len >= 2 && lo_c == 'h' && index("cs", lowc(*(spot - 1)))
+            /* 21st century k-sound */
+            && !(len >= 4 && !strcmpi(spot - 2, "ech")
+                && index("tm", lowc(*(spot - 4)))))
        /* Kludge to get "tomatoes" and "potatoes" right */
        || (len >= 4 && !strcmpi(spot - 2, "ato"))
        || (len >= 5 && !strcmpi(spot - 4, "dingo"))) {