1 files changed, 12 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 2f6b166..0102f16 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -12,8 +12,7 @@
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  */
 
-#include "tclInt.h"
-#include "tclCompile.h"
+#include "tclEngineInt.h"
 
 /*
  * Table of all AuxData types.
@@ -590,6 +589,17 @@ static const Tcl_ObjType substCodeType = {
     NULL,			/* setFromAnyProc */
 };
 
+
+void TclForceBodyNS(
+    Tcl_Obj *bodyPtr,
+    Namespace *nsPtr)
+{
+    if (bodyPtr->typePtr == &tclByteCodeType) {
+	((ByteCode *)bodyPtr->internalRep.otherValuePtr)->nsPtr = nsPtr;
+    }
+}
+
+
 
 /*
  *----------------------------------------------------------------------