From 3bca85b23b94d896c7b0f59544aac9dce3d3feca Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 6 Feb 2024 14:16:57 +0000
Subject: Proposed fix for [86b3c15f0c]: ::unknown has infinite recursion in a
 corner case

---
 library/init.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/library/init.tcl b/library/init.tcl
index 9412e00..188cb3d 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -371,7 +371,10 @@ proc unknown args {
 	    return -options $::tcl::UnknownOptions $::tcl::UnknownResult
 	}
 
-	set ret [catch {set candidates [info commands $name*]} msg]
+	set ret [catch [list uplevel 1 [list info commands $name*]] msg]
+	if {$ret == 0} {
+	    set candidates $msg
+	}
 	if {$name eq "::"} {
 	    set name ""
 	}
-- 
cgit v0.12