Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.2339
diff -u -r1.2339 ChangeLog
--- ChangeLog	26 Oct 2004 16:46:12 -0000	1.2339
+++ ChangeLog	26 Oct 2004 18:22:40 -0000
@@ -1,3 +1,10 @@
+2004-10-26  Andreas Kupries <andreask@activestate.com>
+
+	* library/tm.tcl (::tcl::tm::Defaults): Added a second [file
+	  dirname] around the location of the executable. This fixes [Tcl
+	  SF Bug 1038705]. Instable of a bogus "foo/bin/lib" we now have
+	  the correct "foo/lib" as a base path for modules.
+
 2004-10-26  Don Porter  <dgp@users.sourceforge.net>
 
 	* tests/basic.test:	Added missing constraints.
Index: library/tm.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tm.tcl,v
retrieving revision 1.2
diff -u -r1.2 tm.tcl
--- library/tm.tcl	25 Oct 2004 15:37:16 -0000	1.2
+++ library/tm.tcl	26 Oct 2004 18:23:01 -0000
@@ -316,7 +316,7 @@
     # something other than [::list] in this namespace.
     roots [::list \
 	    [file dirname [info library]] \
-	    [file join [file dirname $exe] lib] \
+	    [file join [file dirname [file dirname $exe]] lib] \
 	    ]
 
     if {$tcl_platform(platform) eq "windows"} {
