--- tcl8.4.7/library/init.tcl.patch	2004-05-04 02:40:31.000000000 +0200
+++ tcl8.4.7/library/init.tcl	2007-07-17 09:56:42.000000000 +0200
@@ -39,13 +39,17 @@
 #       On Windows, it is not used
 #	On Macintosh it is "Tool Command Language" in the Extensions folder
 
-if {![info exists auto_path]} {
-    if {[info exists env(TCLLIBPATH)]} {
-	set auto_path $env(TCLLIBPATH)
-    } else {
-	set auto_path ""
-    }
+if {[info exists env(TCLLIBPATH)]} {
+    set auto_path $env(TCLLIBPATH)
+} else {
+if {[file exists "/usr/lib64/tclX8.3"]} {
+    set auto_path "/usr/share/tcl8.4 /usr/share /usr/lib64 /usr/lib"
+} else {
+    set auto_path ""
 }
+}
+
+
 namespace eval tcl {
     variable Dir
     if {[info library] != ""} {