--- fr.orig	Mon Feb 16 04:09:54 1998
+++ fr	Thu Mar 12 09:49:30 1998
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*- tcl -*- \
-exec wish8.0 $0 wish8.0 $*
+exec wish8.1 $0 wish8.1 $*
 
 set glob(version) 2.4.2
 
@@ -3162,11 +3162,12 @@
 
 FindLibfr
 
+# FreeBSD fix the bug already..
 # 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) ]