--- fr.orig	Wed Oct 12 18:13:36 2005
+++ fr	Wed Oct 12 18:15:47 2005
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*- tcl -*- \
-exec wish $0 wish $*
+exec wish8.4 $0 wish8.4 $*
 
 set glob(version) 2.5.1
 
@@ -3301,10 +3301,10 @@
 FindLibfr
 
 # Load patches for 8.0...
-if {$tk_patchLevel == "8.0"} {
-  #puts "Buggy 8.0 menu.tcl file, applying patch"
-  source $glob(lib_fr)/menu_80_patch.tcl
-}
+#if {$tk_patchLevel == "8.0"} {
+#  #puts "Buggy 8.0 menu.tcl file, applying patch"
+#  source $glob(lib_fr)/menu_80_patch.tcl
+#}
 
 set auto_path [linsert $auto_path 0 $glob(lib_fr) ]
 
