From 5ed9c57d7a6452cb9bb3ae0c72953cbbf7b81c24 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Fri, 6 Sep 2019 17:23:58 +0000
Subject: fix bad level (if specified argument is not a level at all)

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

diff --git a/generic/tclProc.c b/generic/tclProc.c
index d58e8da..f1e0148 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -849,6 +849,7 @@ TclObjGetFrame(
 
 	level = curLevel - 1;
 	result = 0;
+	name = "1";
     }
 
     /*
-- 
cgit v0.12