@@ -1658,10 +1658,14 @@
 
 int
 Tls_Init(Tcl_Interp *interp)		/* Interpreter in which the package is
 					 * to be made available. */
 {
+    const unsigned char tlsTclInitScript[] = {
+#include "tls.tcl.h"
+    };
+
     int major, minor, patchlevel, release;
 
     /*
      * The original 8.2.0 stacked channel implementation (and the patch
      * that preceded it) had problems with scalability and robustness.
@@ -1716,10 +1720,14 @@
     Tcl_CreateObjCommand(interp, "tls::version", VersionObjCmd,
 	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
 
     Tcl_CreateObjCommand(interp, "tls::misc", MiscObjCmd,
 	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
+
+    if (interp) {
+        Tcl_Eval(interp, tlsTclInitScript);
+    }
 
     return Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION);
 }
 
 /*