diff --git a/src/finnish/StemFin.gf b/src/finnish/StemFin.gf
index 5e02a9ad..52efc354 100644
--- a/src/finnish/StemFin.gf
+++ b/src/finnish/StemFin.gf
@@ -76,7 +76,7 @@ oper
     let
       tuoree = init (tuore.s ! NCase Sg Gen) ;
       tuoreesti  = tuoree + "sti" ;
-      tuoreemmin =  init tuoree ;
+      tuoreemmin = init tuoree + "in" ;
     in {s = table {
          AN f => tuore.s ! f ;
          AAdv => if_then_Str isPos tuoreesti tuoreemmin
diff --git a/src/finnish/stemmed/StemFin.gf b/src/finnish/stemmed/StemFin.gf
index 466bb797..3759e7f2 100644
--- a/src/finnish/stemmed/StemFin.gf
+++ b/src/finnish/stemmed/StemFin.gf
@@ -148,7 +148,7 @@ oper
     let 
       tuoree = tuore.s ! 1 ;
       tuoreesti  = tuoree + "sti" ; 
-      tuoreemmin =  init tuoree ;
+      tuoreemmin = init tuoree + "in" ;
     in {s = table {
          SAN f => tuore.s ! f ;
          SAAdv => if_then_Str isPos tuoreesti tuoreemmin