summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index c34147b4d8e..66752b67cd9 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -2105,7 +2105,8 @@ proc populate_main {} {
incr inx
menu .mn.opt.paper
foreach p [list A4 letter] {
- .mn.opt.paper add command -label $p -command "set_paper $p"
+ .mn.opt.paper add command -label $p -command \
+ "set_paper [string tolower $p]"
}
if {[llength $::langs] > 1} {