--- 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