diff --git a/src/finnish/Kotus.gf b/src/finnish/Kotus.gf index 802432d68..7f3b07cf6 100644 --- a/src/finnish/Kotus.gf +++ b/src/finnish/Kotus.gf @@ -106,11 +106,11 @@ oper d28A : Str -> NForms -- 1 jälsi = \s -> dArpi s (Predef.tk 2 s + "len") ; d29 : Str -> NForms -- 1 lapsi - = \s -> let lapsi = dArpi s (init s + "en") in - table {2 => Predef.tk 3 s + "ta" ; i => lapsi ! i} ; + = \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in + table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ; d30 : Str -> NForms -- 2 veitsi - = \s -> let lapsi = dArpi s (init s + "en") in - table {2 => Predef.tk 3 s + "stä" ; i => lapsi ! i} ; + = \s -> let lapsi = dArpi s (init s + "en") ; a = vowHarmony s in + table {2 => Predef.tk 3 s + "st" + a ; i => lapsi ! i} ; d31 : Str -> NForms -- 3 yksi = \s -> let y = Predef.tk 3 s ; diff --git a/src/finnish/MorphoFin.gf b/src/finnish/MorphoFin.gf index a17799ef6..b92f32f32 100644 --- a/src/finnish/MorphoFin.gf +++ b/src/finnish/MorphoFin.gf @@ -639,7 +639,7 @@ resource MorphoFin = ResFin ** open Prelude in { in vForms12 harkita (harkit + "sen") - (harkit + "se") + (harkit + "see") (harkit + "sev" + a + "t") (harkit + "k" + a + a) (harkit + a + a + "n")