Index: library/tm.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tm.tcl,v
retrieving revision 1.6
diff -u -r1.6 tm.tcl
--- library/tm.tcl	15 Apr 2005 15:50:36 -0000	1.6
+++ library/tm.tcl	25 Apr 2005 17:28:25 -0000
@@ -353,7 +353,7 @@
 	for {set n $minor} {$n >= 0} {incr n -1} {
 	    path add [file normalize [file join $p ${major}.${n}]]
 	}
-	path add [file normalize [file join $pa site-tcl]]
+	path add [file normalize [file join $p site-tcl]]
     }
     return
 }
Index: tests/tm.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/tm.test,v
retrieving revision 1.5
diff -u -r1.5 tm.test
--- tests/tm.test	5 Nov 2004 09:21:46 -0000	1.5
+++ tests/tm.test	25 Apr 2005 17:28:26 -0000
@@ -204,8 +204,8 @@
     set base [file normalize $base]
     foreach {major minor} [split [info tclversion] .] break
     set results {}
-    lappend results [file join $base site-tcl]
     set base [file join $base tcl$major]
+    lappend results [file join $base site-tcl]
     for {set i 0} {$i <= $minor} {incr i} {
 	lappend results [file join $base ${major}.$i]
     }
