Index: mttroot/mtt/bin/trans/mtt_make_menu
==================================================================
--- mttroot/mtt/bin/trans/mtt_make_menu
+++ mttroot/mtt/bin/trans/mtt_make_menu
@@ -27,21 +27,26 @@
 set system "$system"
 
 # Arguments to mtt
 set args "-q"
 
+# Default the again command
+set mtt "mtt warranty"
+
 # The top level menu
-button .mtt -text "$title ($dirname)" -command "exec mtt warranty &"
+button .mtt -text "$title \n Directory: $dirname \n NO WARRANTY (press for details)" -command "exec mtt warranty &"
+#button .again -text "Again" -command "exec $mtt &"
 menubutton .man -text "Manual" -menu .man.man
 menubutton .util  -text "Utilities" -menu .util.util
 menubutton .opt  -text "Options" -menu .opt.opt
 menubutton .sys -text "Systems" -menu .sys.sys
 menubutton .rep -text "Representations (major)" -menu .rep.rep
 menubutton .repall -text "Representations (all)" -menu .repall.repall
 menubutton .exam -text "Examples" -menu .exam.exam
 button .mtt_quit -text "Quit" -command exit
-pack .mtt .exam .rep  .repall .sys  .util .opt  .man .mtt_quit
+pack .mtt  .exam .rep  .repall .sys  .util .opt  .man .mtt_quit
+
  
 menu .man.man
 .man.man add command -label "Browser (html)" -command "exec mtt -q hinfo &"
 .man.man add command -label "Info" -command "exec xterm -e mtt -q info &"
 .man.man add command -label "Text (pdf)" -command "exec mtt -q manual &"
@@ -86,14 +91,18 @@
 menu .rep.rep
 menu .repall.repall
 EOF
 
 reps_txt2tk <$MTTPATH/REPS 
+
+
+
+