脚本中的错误：找不到包Tk 8.4（c包装tcl）

Question

我在尝试运行嵌入在C代码中的Tcl脚本时遇到了上述错误：

Tcl_FindExecutable(argv[0]);
interp = Tcl_CreateInterp();
code = Tcl_Eval(interp, "source mainTCL.tcl");

/* Retrieve the result... */
result = Tcl_GetString(Tcl_GetObjResult(interp));

/* Check for error! If an error, message is result. */
if (code == TCL_ERROR) {
    fprintf(stderr, "ERROR in script: %s\n", result);
    exit(1);
}

如此处所示：how-to-use-tcl-apis-in-a-c-code。

从tclsh运行此脚本时没有错误。我也试过设置$auto_path，但它不起作用。 我通过添加puts跟踪发生错误的位置，它位于：

source "/usr/share/tcltk/tkcon2.7/tkcon.tcl"

有什么问题？感谢任何帮助...... tclsh和Tcl解释器的C实例有什么区别？