diff --git a/src/lauxlib.cpp b/src/lauxlib.cpp
index f51088fd99..484eacdbe0 100644
--- a/src/lauxlib.cpp
+++ b/src/lauxlib.cpp
@@ -1130,7 +1130,7 @@ static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) {
 
 
 /*
-** Standard panic funcion just prints an error message. The test
+** Standard panic function just prints an error message. The test
 ** with 'lua_type' avoids possible memory errors in 'lua_tostring'.
 */
 static int panic (lua_State *L) {
diff --git a/src/lgc.cpp b/src/lgc.cpp
index 700390d25a..0ad3a16f7b 100644
--- a/src/lgc.cpp
+++ b/src/lgc.cpp
@@ -1541,7 +1541,7 @@ static void sweepstep (lua_State *L, global_State *g,
 ** object.) When 'fast' is true, 'singlestep' tries to finish a state
 ** "as fast as possible". In particular, it skips the propagation
 ** phase and leaves all objects to be traversed by the atomic phase:
-** That avoids traversing twice some objects, such as theads and
+** That avoids traversing twice some objects, such as threads and
 ** weak tables.
 */
 static l_obj singlestep (lua_State *L, int fast) {
diff --git a/src/lgc.h b/src/lgc.h
index d46b4d8181..2d94daf69b 100644
--- a/src/lgc.h
+++ b/src/lgc.h
@@ -132,7 +132,7 @@
 **
 ** To keep its invariants, the generational mode uses the same barriers
 ** also used by the incremental mode. If a young object is caught in a
-** foward barrier, it cannot become old immediately, because it can
+** forward barrier, it cannot become old immediately, because it can
 ** still point to other young objects. Instead, it becomes 'old0',
 ** which in the next cycle becomes 'old1'. So, 'old0' objects is
 ** old but can point to new and survival objects; 'old1' is old
diff --git a/src/lstate.h b/src/lstate.h
index 2dd5ad65f1..14eedb9bb9 100644
--- a/src/lstate.h
+++ b/src/lstate.h
@@ -261,7 +261,7 @@ typedef struct global_State {
   l_obj totalobjs;  /* total number of objects allocated + GCdebt */
   l_obj GCdebt;  /* objects counted but not yet allocated */
   l_obj marked;  /* number of objects marked in a GC cycle */
-  l_obj GCmajorminor;  /* auxiliar counter to control major-minor shifts */
+  l_obj GCmajorminor;  /* auxiliary counter to control major-minor shifts */
   stringtable strt;  /* hash table for strings */
   TValue l_registry;
   TValue nilvalue;  /* a nil value */
diff --git a/testes/pm.lua b/testes/pm.lua
index e5e3f7a77b..f5889fcd07 100644
--- a/testes/pm.lua
+++ b/testes/pm.lua
@@ -56,7 +56,7 @@ assert(f("  \n\r*&\n\r   xuxu  \n\n", "%g%g%g+") == "xuxu")
 
 -- Adapt a pattern to UTF-8
 local function PU (p)
-  -- reapply '?' into each individual byte of a character.
+  -- distribute '?' into each individual byte of a character.
   -- (For instance, "á?" becomes "\195?\161?".)
   p = string.gsub(p, "(" .. utf8.charpattern .. ")%?", function (c)
     return string.gsub(c, ".", "%0?")