Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.103.2.3
diff -u -r1.103.2.3 tcltest.tcl
--- library/tcltest/tcltest.tcl	1 Sep 2009 14:13:02 -0000	1.103.2.3
+++ library/tcltest/tcltest.tcl	29 Oct 2009 16:53:20 -0000
@@ -2743,7 +2743,21 @@
 
 	if {[singleProcess]} {
 	    incr numTestFiles
+	    set startVars [uplevel 1 {::info vars}]
 	    uplevel 1 [list ::source $file]
+	    DebugDo 1 {
+		set litter {}
+		foreach v [uplevel 1 {::info vars}] {
+		    if {$v ni $startVars} {
+			lappend litter $v
+		    }
+		}
+		if {[llength $litter]} {
+		    puts [outputChannel] \
+			    "Test file $file left behind variables:\n\t$litter"
+		}
+	    }
+	    set endVars [uplevel 1 {::info vars}]
 	} else {
 	    # Pass along our configuration to the child processes.
 	    # EXCEPT for the -outfile, because the parent process
