);
my $groups = kbchars(\%rows);
-$rows{$_} =~ /\A\p{Greek}/ and $groups->{def}{''}{$_} =~ s/g6/g5/ for map {"+$_"} 'a'..'z';
+$rows{$_} =~ /\A\p{Greek}/ and $groups->{def}{''}{$_}[0] =~ s/g6/g5/ for map {"+$_"} 'a'..'z';
$groups->{flag}{g4} = ['similar', 'transliterates or transcribes an expected letter'];
$groups->{flag}{g5} = ['greek', 'different Greek letters or symbols'];
category => 'legacy',
intro => join("\n",
'Apparent <a href="/charset">glyphs</a> available',
- 'on the 1978 Symbolics Space Cadet keyboard',
+ 'on the 1978 (later Symbolics) Space Cadet keyboard',
'by pressing either the <em>Greek/Front</em> or <em>Top</em> key.',
'Distinct from the modern <a href="/keyboard/altgr/apl">IBM standard</a>',
'for <a href="/apl">APL</a> programming.',