@@ -31,23 +31,23 @@
 catch {::tcltest::normalizePath ::tcltest::testsDirectory}
 
 #
 # Run all tests in current and any sub directories with an all.tcl file.
 #
-set exitCode 0
+set ::exitCode 0
 if {[package vsatisfies [package require tcltest] 2.5-]} {
     if {[::tcltest::runAllTests] == 1} {
-	set exitCode 1
+	set ::exitCode 1
     }
 
 } else {
     # Hook to determine if any of the tests failed. Then we can exit with the
     # proper exit code: 0=all passed, 1=one or more failed
     proc tcltest::cleanupTestsHook {} {
 	variable numTests
-	set exitCode [expr {$numTests(Total) == 0 || $numTests(Failed) > 0}]
+	set ::exitCode [expr {$numTests(Total) == 0 || $numTests(Failed) > 0}]
     }
     ::tcltest::runAllTests
 }
 
 #  Exit code: 0=all passed, 1=one or more failed
-exit $exitCode
+exit $::exitCode