# generate character table(s)
my $input = shift or return;
my $params = $input =~ s/[+](.*)\z// ? $1 : undef;
- my $charset = $charsets->{$input} || {};
+ my $charset = $charsets->{lc $input} || {};
if (ref $charset ne 'HASH') {
$params and Alert("Parameters ignored for $input",