--- tkcvs_7_2_2/tkcvs/tkcvs.tcl.paths	2004-03-30 23:03:14.000000000 +0200
+++ tkcvs_7_2_2/tkcvs/tkcvs.tcl	2005-02-09 22:28:17.171412260 +0100
@@ -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)"
 
@@ -88,8 +88,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]
 }
 
 set optfile [file join $cvscfg(home) .tkcvs]