From e72e39c992f22b48bc2bf6daedb40198c764796a Mon Sep 17 00:00:00 2001
From: andreas_kupries <akupries@shaw.ca>
Date: Tue, 18 Mar 2008 18:02:51 +0000
Subject: Fix oops. Use ::list, not list, prevent use of the namespace local
 command.

---
 library/tm.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/tm.tcl b/library/tm.tcl
index 90692d2..baf3667 100644
--- a/library/tm.tcl
+++ b/library/tm.tcl
@@ -321,7 +321,7 @@ proc ::tcl::tm::Defaults {} {
 	set sep ":"
     }
     for {set n $minor} {$n >= 0} {incr n -1} {
-	foreach ev [list \
+	foreach ev [::list \
 			TCL${major}.${n}_TM_PATH \
 			TCL${major}_${n}_TM_PATH \
         ] {
-- 
cgit v0.12