diff --git a/src/apply.c b/src/apply.c
index 75c7e1f56..b527b126a 100644
--- a/src/apply.c
+++ b/src/apply.c
@@ -1028,7 +1028,7 @@ struct obj **optr;
 	} else {
 		if ((long)otmp->spe + obj->quan > 7L) {
 		    obj = splitobj(obj, 7L - (long)otmp->spe);
-		    /* avoid a gramatical error if obj->quan gets
+		    /* avoid a grammatical error if obj->quan gets
 		       reduced to 1 candle from more than one */
 		    s = (obj->quan != 1) ? "candles" : "candle";
 		} else *optr = 0;