diff -Naur original/library/init.tcl patched/library/init.tcl
--- original/library/init.tcl	2023-08-21 02:45:35.424433637 +0100
+++ patched/library/init.tcl	2024-02-02 18:41:18.049045928 +0000
@@ -371,7 +371,10 @@
 	    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 ""
 	}
