From 56fd159e341d45552e0b695b6376fa459f236fc6 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 11 Oct 2018 06:58:57 +0200
Subject: [PATCH] fixed three paradigms in Finnish Kotus: lapsi, veitsi,
 harkita

---
 src/finnish/Kotus.gf     | 8 ++++----
 src/finnish/MorphoFin.gf | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

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")