--- tkcvs_8_1/tkcvs/tkcvs.tcl	2007-11-03 07:09:35.000000000 +0100
+++ tkcvs_8_1/tkcvs/tkcvs.tcl-gil	2008-07-30 03:41:35.000000000 +0200
@@ -59,8 +59,8 @@
 }
 #puts "TclRoot $TclRoot"
 
-set TCDIR [file join $TclRoot tkcvs]
-set cvscfg(bitmapdir) [file join $TclRoot tkcvs bitmaps]
+set TCDIR "/usr/share/tkcvs"
+set cvscfg(bitmapdir) "/usr/share/tkcvs/bitmaps"
 #puts "TCDIR $TCDIR"
 #puts "BITMAPDIR $cvscfg(bitmapdir)"
 
@@ -89,8 +89,8 @@
 }
 
 # Read in defaults
-if {[file exists [file join $TCDIR tkcvs_def.tcl]]} {
-  source [file join $TCDIR tkcvs_def.tcl]
+if {[file exists [file join /etc/cvs tkcvs_def.tcl]]} {
+  source [file join /etc/cvs tkcvs_def.tcl]
 }
 
 # This helps us recover from a problem left behind by tkcvs 7.2