Index: tcc4tcl.c
==================================================================
--- tcc4tcl.c
+++ tcc4tcl.c
@@ -279,14 +279,14 @@
 	return TCL_OK;
 }
 
 int Tcc4tcl_Init(Tcl_Interp *interp) {
 #ifdef USE_TCL_STUBS
-	if (Tcl_InitStubs(interp, "8.4" , 0) == 0L) {
+	if (Tcl_InitStubs(interp, TCL_VERSION , 0) == 0L) {
 		return TCL_ERROR;
 	}
 #endif
 
 	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);
 
 	return TCL_OK;
 }

Index: tcc4tcl.tcl
==================================================================
--- tcc4tcl.tcl
+++ tcc4tcl.tcl
@@ -119,11 +119,11 @@
 					set packageVersion "0"
 				}
 
 				append code "int [string totitle $packageName]_Init(Tcl_Interp *interp) \{\n"
 				append code "#ifdef USE_TCL_STUBS\n"
-				append code "  if (Tcl_InitStubs(interp, \"8.4\" , 0) == 0L) \{\n"
+				append code "  if (Tcl_InitStubs(interp, TCL_VERSION, 0) == 0L) \{\n"
 				append code "    return TCL_ERROR;\n"
 				append code "  \}\n"
 				append code "#endif\n"
 
 				if {[info exists state(procs)] && [llength $state(procs)] > 0} {