--- tkcvs-8.0.3.orig/tkcvs/tkcvs.tcl
+++ tkcvs-8.0.3/tkcvs/tkcvs.tcl
@@ -44,13 +44,15 @@ if {$tcl_platform(platform) == "windows"
   set TclExe [file attributes $TclExe -shortname]
 }
 
-set TclRoot [file join [file dirname $ScriptBin]]
+#set TclRoot [file join [file dirname $ScriptBin]]
+set TclRoot /usr/share
+
 #puts "TclRoot $TclRoot"
 if {$TclRoot == "."} {
   set TclRoot [pwd]
 }
 #puts "TclRoot $TclRoot"
-set TclRoot [file join [file dirname $TclRoot] "lib"]
+#set TclRoot [file join [file dirname $TclRoot] "lib"]
 #puts "TclRoot $TclRoot"
 
 # allow runtime replacement
@@ -59,7 +61,7 @@ if {[info exists env(TCLROOT)]} {
 }
 #puts "TclRoot $TclRoot"
 
-set TCDIR [file join $TclRoot tkcvs]
+set TCDIR /usr/share/tkcvs
 set cvscfg(bitmapdir) [file join $TclRoot tkcvs bitmaps]
 #puts "TCDIR $TCDIR"
 #puts "BITMAPDIR $cvscfg(bitmapdir)"
@@ -89,8 +91,8 @@ if { [info exists env(HOME)] } {
 }
 
 # Read in defaults
-if {[file exists [file join $TCDIR tkcvs_def.tcl]]} {
-  source [file join $TCDIR tkcvs_def.tcl]
+if {[file exists /etc/tkcvs/tkcvs_def.tcl]} {
+  source /etc/tkcvs/tkcvs_def.tcl
 }
 
 # This helps us recover from a problem left behind by tkcvs 7.2