testutils.tcl [createStdAccessProc]: simplify handling of namespaces

tcltk · Jan 11, 2025 · 2dfde7b · 2dfde7b
1 parent d8f3ac2
commit 2dfde7b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testutils.tcl b/tests/testutils.tcl
@@ -96,7 +96,7 @@ namespace eval tk {
 	# get and set methods.
 	#
 	proc createStdAccessProc {varName} {
-	    namespace eval [uplevel 1 {namespace current}] [subst -nocommands {
+	    uplevel 1 [subst -nocommands {
 		proc $varName {subcmd {value ""}} {
 		    variable $varName
 		    switch -- \$subcmd {