diff options
| -rw-r--r-- | generic/tcl.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index eab6144..c3fae04 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2425,7 +2425,8 @@ EXTERN Tcl_Interp *Tcl_InitSubsystems(int flags, ...); */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - (Tcl_InitSubsystems(TCL_INIT_CREATE, 0, argv))) + (Tcl_InitSubsystems(),Tcl_SetInitialEncodings(), \ + Tcl_FindExecutable(argv[0]), Tcl_CreateInterp())) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |