diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index d6ddc5d7902..143c4760c6c 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -2547,7 +2547,7 @@ TclLindexList(
 
     /*
      * Make a private copy of the index list argument to keep the internal
-     * representation of th indices array unchanged while it is in use.  This
+     * representation of the indices array unchanged while it is in use.  This
      * is probably unnecessary. It does not appear that any damaging change to
      * the internal representation is possible, and no test has been devised to
      * show any error when this private copy is not made, But it's cheap, and