--- fr
+++ fr
@@ -1,4 +1,4 @@
-#! /usr/bin/env wish
+#! /usr/local/bin/wish8.6
 # -*- tcl -*-
 
 
@@ -1842,7 +1842,7 @@
   set config(startpwd,$inst) $glob($inst,pwd)
   LogStatusOnly [_ "% set. Do\
        \"Configuration->Save configuration\" if\
-        you want to store it to the .fr file" sconfig(startpwd,$inst)]
+        you want to store it to the .desk/fr file" sconfig(startpwd,$inst)]
   #SaveConfig
 }
 
@@ -1852,7 +1852,7 @@
   LogStatusOnly \
       [_ "%s set. Do\
        \"Configuration->Save configuration\" if\
-       you want to store it to the .fr file" sconfig(geometry,main)]
+       you want to store it to the .desk/fr file" sconfig(geometry,main)]
 }
 
 
@@ -5228,7 +5228,7 @@
                   HOME (your home directory) and try again."]
   exit 1
 } else {
-  set glob(conf_dir)  [file normalize $env(HOME)/.fr]
+  set glob(conf_dir)  [file normalize $env(HOME)/.desk/fr]
 #$glob(lib_fr)/userconfig 
 }
 #puts "about to do usercommands"