diff -urN TclTutor.orig/TclTutor.tcl TclTutor/TclTutor.tcl

--- TclTutor.orig/TclTutor.tcl	2008-08-02 06:04:40 +0300

+++ TclTutor/TclTutor.tcl	2008-08-08 01:46:47 +0300

@@ -139,8 +139,8 @@

     switch $tcl_platform(platform) {

       "unix"	{

-            set Tutor(sourceHome) [file dirname $argv0]

-            set Tutor(lessonHome) [file dirname $argv0]/lesson

+	    set Tutor(sourceHome) "/usr/share/TclTutor"

+	    set Tutor(lessonHome) "/usr/share/TclTutor/lessons"

 	    set Tutor(rcHome) $env(HOME)

             set Tutor(rcfile) [file join $Tutor(rcHome) .tcltutorrc]

             set Tutor(logFileName) [file join $Tutor(rcHome) .tcltutoract]