1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 43f0d2e..7b9bb61 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -3597,6 +3597,10 @@ SetCmdNameFromAny(interp, objPtr)
     Namespace *currNsPtr;
     register ResolvedCmdName *resPtr;
 
+    if (interp == NULL) {
+	return TCL_ERROR;
+    }
+
     /*
      * Get "objPtr"s string representation. Make it up-to-date if necessary.
      */