diff --git a/ext/tcltklib/stubs.c b/ext/tcltklib/stubs.c
index faf5b4bb4b..69a5d6d3c0 100644
--- a/ext/tcltklib/stubs.c
+++ b/ext/tcltklib/stubs.c
@@ -47,7 +47,7 @@ ruby_tcltk_stubs()
     } else {
 	snprintf(tcl_name, sizeof tcl_name, TCL_NAME, DLEXT);
 	snprintf(tk_name, sizeof tk_name, TK_NAME, DLEXT);
-	/* examin from 8.9 to 8.1 */
+	/* examine from 8.9 to 8.1 */
 	for (n = '9'; n > '0'; n--) {
 	    tcl_name[TCL_INDEX] = n;
 	    tk_name[TK_INDEX] = n;