diff --git a/src/xinit.c b/src/xinit.c index 934189bf..a0d4bcd8 100644 --- a/src/xinit.c +++ b/src/xinit.c @@ -3079,6 +3079,11 @@ int Tcl_AppInit(Tcl_Interp *inter) /* */ tcleval("source_user_tcl_files"); + /* */ + /* Execute tcl commands given in tcl variable postinit_commands if existing */ + /* */ + tcleval("eval_postinit_commands"); + if(cli_opt_filename[0]) { char f[PATH_MAX]; int file_loaded = 1; @@ -3230,9 +3235,6 @@ int Tcl_AppInit(Tcl_Interp *inter) tcleval(cli_opt_tcl_post_command); } - /* Execute tcl commands given in tcl variable postinit_commands if existing */ - tcleval("eval_postinit_commands"); - if(cli_opt_quit) { char s[40]; my_snprintf(s, S(s), "exit %d", exit_code);