diff options
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 8fac14a..90692d2 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -321,8 +321,11 @@ proc ::tcl::tm::Defaults {} { set sep ":" } for {set n $minor} {$n >= 0} {incr n -1} { - set ev TCL${major}.${n}_TM_PATH - if {[info exists env($ev)]} { + foreach ev [list \ + TCL${major}.${n}_TM_PATH \ + TCL${major}_${n}_TM_PATH \ + ] { + if {![info exists env($ev)]} continue foreach p [split $env($ev) $sep] { path add $p } |