Index: tests/encoding.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/encoding.test,v
retrieving revision 1.11
diff -u -r1.11 encoding.test
--- tests/encoding.test	8 Apr 2002 09:02:19 -0000	1.11
+++ tests/encoding.test	27 Apr 2002 22:18:34 -0000
@@ -372,7 +372,7 @@
 	gets $f
     }
     close $f
-    exec [list $::tcltest::tcltest] iso2022.tcl
+    exec $::tcltest::tcltest iso2022.tcl
 } {}
 
 test encoding-24.2 {EscapeFreeProc on open channels} {exec} {
@@ -384,7 +384,7 @@
 	exit
     }
     close $f
-    viewable [exec [list $::tcltest::tcltest] iso2022.tcl]
+    viewable [exec $::tcltest::tcltest iso2022.tcl]
 } "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)"
 
 test encoding-24.3 {EscapeFreeProc on open channels} {exec} {
