X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/aed75298b5098f135ff8159c96775e1ab5e2dad0..c4ca0bd3e94a7978772dadaa3b941ecc84741407:/keyboard/altgr/spacecadet.eng.inc.pl

diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index 12c2fbe..de6c232 100644
--- a/keyboard/altgr/spacecadet.eng.inc.pl
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -90,7 +90,7 @@ my %rows = (
 );
 
 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'];
 
@@ -101,7 +101,7 @@ $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.',