Index: tests/main.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/main.test,v
retrieving revision 1.16
diff -u -r1.16 main.test
--- tests/main.test	28 Apr 2005 05:32:02 -0000	1.16
+++ tests/main.test	8 Feb 2006 22:16:33 -0000
@@ -913,6 +913,7 @@
     } -body {
 	exec [interpreter] << {
 		proc foo\{ x {}
+		set ::auto_noexec xxx
 		set tcl_interactive 1
 		foo y} >& result
 	set f [open result]
