1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 89d6b8f..44cf543 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -790,6 +790,13 @@ Tcl_CreateInterp(void)
     TclInitEmbeddedConfigurationInformation(interp);
 
     /*
+     * TIP #440: Declare the name of the script engine to be "Tcl".
+     */
+
+    Tcl_SetVar2(interp, "tcl_platform", "engine", "Tcl",
+	    TCL_GLOBAL_ONLY);
+
+    /*
      * Compute the byte order of this machine.
      */