From bacdfc5ef0bf56c2c3f6d8710b843f9715ac2f26 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Fri, 6 Sep 2019 17:36:06 +0000
Subject: cherry-pick [af744d56e0ffcc65] fixed segfault of [775ee88560] in 8.7

---
 generic/tclProc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclProc.c b/generic/tclProc.c
index 8beb701..d83134b 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -834,7 +834,7 @@ TclObjGetFrame(
     }
 
     if (name == NULL) {
-	name = TclGetString(objPtr);
+	name = objPtr ? TclGetString(objPtr) : "1" ;
     }
     Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad level \"%s\"", name));
     Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", name, NULL);
-- 
cgit v0.12