Index: boust
--- boust.orig
+++ boust
@@ -2,9 +2,9 @@
 # In sh check to see if the "--o" argument is present.
 # If it is, run tclsh, otherwise, run wish.
 # (The backslash makes the following line a comment as well... \
-THESH="wish"
+THESH="${MODTK_BIN}"
 # blah\
-for arg in "$@" ; do if [ "$arg" == "--o" ] ; then THESH="tclsh" ; fi ; done ; \
+for arg in "$@" ; do if [ "$arg" == "--o" ] ; then THESH="${MODTCL_BIN}" ; fi ; done ; \
 # \
 exec $THESH "$0" "$@"
 
@@ -145,13 +145,13 @@ if {[llength $argv] > 0} {
        set fileName $filepar
    } else {
      puts stderr "No file specified.  Defaulting to 'README'.  "
-     set fileName README
+     set fileName ${LOCALBASE}/share/doc/boust/README
    }
 
 
 } else {
   puts stderr "No file specified.  Defaulting to 'README'.  "
-  set fileName README
+  set fileName ${LOCALBASE}/share/doc/boust/README
 }
 
 if {$printOnly == 0} {
