--- tkseti.orig	Fri Jun  8 16:23:37 2001
+++ tkseti	Mon Jun 11 10:22:48 2001
@@ -1,6 +1,6 @@
 #!/bin/sh
 # the next line restarts using wish \
-exec wish "$0" ${1+"$@"}
+exec wish8.3 "$0" ${1+"$@"}
 #############################################################################
 # Visual Tcl v1.20 Project
 #
@@ -189,11 +189,11 @@
     TkSETI can be started if the client is already running, or it can start
     the client manually or automatically for you. This is explained in the
     Setup section that follows.
-    
-    TkSETI will look for the client files in the directory ~/setiathome. If
-    you've run the client elsewhere, or run more than one client, just
-    specify the setiathome client directory on the tkseti command line. For
-    example:
+
+    TkSETI will look for the client files in the directory
+    /var/db/setiathome . If you've run the client elsewhere, or run more
+    than one client, just specify the setiathome client directory on the
+    tkseti command line. For example:
 
     tkseti ~/setiathome
 
@@ -551,7 +551,7 @@
     if {[catch {info nameofexecutable} nameofexecutable]} {
         set nameofexecutable wish
     }
-    set seti(usage) "    TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n       user_setiathome_directory defaults to ~/setiathome"
+    set seti(usage) "    TkSETI version $seti(tksetiVersion) by Rick Macdonald <rickm@vsl.com>\n\nYou are running $nameofexecutable patchlevel [info patchlevel].\n\nUsage: tkseti \[--help\] \[user_setiathome_directory\]\n       user_setiathome_directory defaults to /var/db/setiathome"
 
     if {[lsearch $argv "--help"] >= 0} {
         puts \n$seti(usage)
@@ -566,7 +566,7 @@
     option add *highlightBackground grey85 user
 
     if {$argc == 0} {
-        set seti(setidir) [glob ~]/setiathome
+        set seti(setidir) /var/db/setiathome
     } {
         set seti(setidir) [lindex $argv 0]
         if {[string index $seti(setidir) 0] != "/"} {
