--- a/tcl/dialog_font.tcl
+++ b/tcl/dialog_font.tcl
@@ -82,7 +82,6 @@
 
 proc ::dialog_font::create_dialog {gfxstub} {
     toplevel .font -class DialogWindow
-    .font configure -menu $::dialog_menubar
     .font configure -padx 10 -pady 5
     wm group .font .
     wm resizable .font 0 0