diff --git a/ChangeLog b/ChangeLog
index a75f714484..8bdc89c3db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Dec 26 15:32:16 2014  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* ext/tk/tcltklib.c (ip_invoke_core): remove probably duplicate
+	  dead code.
+
 Fri Dec 26 15:28:27 2014  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/tk/tcltklib.c (ip_ruby_cmd_receiver_const_get): simply use
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 06b88af1d3..46159076db 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -8558,9 +8558,6 @@ ip_invoke_core(interp, argc, argv)
 #endif
 #endif
 
-    /* get the data struct */
-    ptr = get_ip(interp);
-
     /* get the command name string */
 #if TCL_MAJOR_VERSION >= 8
     cmd = Tcl_GetStringFromObj(objv[0], &len);