Index: tcc4tcl.c
==================================================================
--- tcc4tcl.c
+++ tcc4tcl.c
@@ -287,12 +287,13 @@
 		return(TCL_ERROR);
 	}
 
 #ifdef USE_TCL_STUBS
 	if (index == TCC_OUTPUT_MEMORY) {
-		/* Only add this symbol if we are compiling to memory */
+		/* Only add these symbols if we are compiling to memory */
 		tcc_add_symbol(s, "tclStubsPtr", &tclStubsPtr);
+		tcc_add_symbol(s, "Tcl_InitStubs", &Tcl_InitStubs);
 	}
 
 	tcc_define_symbol(s, "USE_TCL_STUBS", "1");
 #endif