grammar fix for "That walking shoes is really a small mimic"

src/apply.c

@@ -383,10 +383,15 @@ register struct obj *obj;
             newsym(mtmp->mx, mtmp->my);
         } else if (mtmp->mappearance) {
             const char *what = "thing";
+            boolean use_plural = FALSE;
+            struct obj dummyobj, *odummy;
 
             switch (M_AP_TYPE(mtmp)) {
             case M_AP_OBJECT:
-                what = simple_typename(mtmp->mappearance);
+                odummy = init_dummyobj(&dummyobj, mtmp->mappearance, 1L);
+                what = simple_typename(odummy->otyp);
+                use_plural = (is_boots(odummy) || is_gloves(odummy)
+                              || odummy->otyp == LENSES);
                 break;
             case M_AP_MONSTER: /* ignore Hallucination here */
                 what = mons[mtmp->mappearance].mname;
@@ -396,7 +401,9 @@ register struct obj *obj;
                 break;
             }
             seemimic(mtmp);
-            pline("That %s is really %s.", what, mnm);
+            pline("%s %s %s really %s.",
+                  use_plural ? "Those" : "That", what,
+                  use_plural ? "are" : "is", mnm);
         } else if (flags.verbose && !canspotmon(mtmp)) {
             There("is %s there.", mnm);
         }

src/mkobj.c

@@ -2470,6 +2470,38 @@ struct monst *mon;
     }
 }
 
+/*
+ * Initialize a dummy obj with just enough info
+ * to allow some of the tests in obj.h that
+ * take an obj pointer to work.
+ *
+ */
+struct obj *
+init_dummyobj(obj, otyp, oquan)
+struct obj *obj;
+short otyp;
+long oquan;
+{
+     if (obj) {
+         *obj = zeroobj;
+         obj->otyp = otyp;
+         obj->oclass = objects[otyp].oc_class;
+         /* obj->dknown = 0; */
+         /* suppress known except for amulets (needed for fakes and real A-of-Y) */
+         obj->known = (obj->oclass == AMULET_CLASS)
+                       ? obj->known
+                         /* default is "on" for types which don't use it */
+                         : !objects[otyp].oc_uses_known;
+         obj->quan = oquan ? oquan : 1L;
+         obj->corpsenm = NON_PM; /* suppress statue and figurine details */
+         /* but suppressing fruit details leads to "bad fruit #0"
+            [perhaps we should force "slime mold" rather than use xname?] */
+         if (obj->otyp == SLIME_MOLD)
+             obj->spe = 1;
+     }
+     return obj;
+}
+
 /* obj sanity check: check objects inside container */
 STATIC_OVL void
 check_contained(container, mesg)