@@ -35,11 +35,11 @@ #ifdef KIT_INCLUDES_ITCL Tcl_AppInitProc Itcl_Init; #endif #ifdef KIT_INCLUDES_MK4TCL -Tcl_AppInitProc Mk4tcl_Init +Tcl_AppInitProc Mk4tcl_Init; #endif Tcl_AppInitProc Vfs_Init, Rechan_Init, Zlib_Init; #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85 Tcl_AppInitProc Pwb_Init; #endif @@ -187,12 +187,12 @@ #ifdef HAVE_TCLSETSTARTUPSCRIPTPATH path = TclGetStartupScriptPath(); TclSetStartupScriptPath(Tcl_GetObjResult(interp)); #else # ifdef HAVE_TCL_SETSTARTUPSCRIPT - path = Tcl_GetStartupScriptPath(NULL); - TclSetStartupScriptPath(Tcl_GetObjResult(interp)); + path = Tcl_GetStartupScript(NULL); + Tcl_SetStartupScript(Tcl_GetObjResult(interp), NULL); # endif #endif if (path == NULL) Tcl_Eval(interp, "incr argc -1; set argv [lrange $argv 1 end]"); }