>>466
[ generic/tclEncoding.c ]
Tcl_FindExecutable(
const char *argv0) /* The value of the application's argv[0]
* (native). */
{
TclInitSubsystems();
TclpSetInitialEncodings();
TclpFindExecutable(argv0);
}

・TclInitSubsystems は Tcl_CreateInterpでもコールされているので二度手間
・Tcl_FindExecutable のコールで内部エンコーディングがセットされているなんて分かりにくい

ユーザーとしては Tcl_SetSystemEncoding を使う方が意図が明らかで良いと思いました

// Tcl_FindExecutable(NULL);
Tcl_Interp *tcl = Tcl_CreateInterp();
Tcl_SetSystemEncoding(NULL, "utf-8"); // 環境変数を見に行かなくても決め打ちで良いでしょう