1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index d084692..15c8276 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -4264,6 +4264,10 @@ SetCmdNameFromAny(
     Namespace *currNsPtr;
     register ResolvedCmdName *resPtr;
 
+    if (interp == NULL) {
+	return TCL_ERROR;
+    }
+
     /*
      * Find the Command structure, if any, that describes the command called
      * "name". Build a ResolvedCmdName that holds a cached pointer to this