diff options
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclEvent.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 2928f37..fb85241 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -984,7 +984,7 @@ Tcl_CreateInterp(void) * TIP #268: Full patchlevel instead of just major.minor */ - Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL, &tclStubs); + Tcl_PkgProvideEx(interp, "Tcl", version, &tclStubs); if (TclTommath_Init(interp) != TCL_OK) { Tcl_Panic("%s", Tcl_GetString(Tcl_GetObjResult(interp))); diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 7abd33c..e9d760c 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1028,7 +1028,7 @@ static const struct { const char version[256]; } stubInfo = { &tclStubs, {TCL_PATCH_LEVEL} -} +}; const char * TclInitSubsystems(void) |