diff --git a/src/finnish/ParadigmsFin.gf b/src/finnish/ParadigmsFin.gf
index 51a0f41a8..6570c591a 100644
--- a/src/finnish/ParadigmsFin.gf
+++ b/src/finnish/ParadigmsFin.gf
@@ -76,14 +76,16 @@ oper
   casePrep    : Case ->        Prep ;  -- just case, e.g. adessive
 
   mkPrep = overload {
-    mkPrep : Case -> Prep
+    mkPrep : Case -> Prep  -- inessive
      = casePrep ;
-    mkPrep : Str -> Prep
+    mkPrep : Str -> Prep   -- kanssa
      = postGenPrep ;
-    mkPrep : Case -> Str -> Prep
+    mkPrep : Case -> Str -> Prep  -- genitive kanssa
      = postPrep ;
-    mkPrep : Str -> Case -> Prep
+    mkPrep : Str -> Case -> Prep  -- ilman partitive
      = \s,c -> prePrep c s ;
+    mkPrep : Str -> Case -> Str -> Prep  -- yhdessä genitive kanssa
+     = \s,c,t -> lin Prep {c = NPCase c ; s = <s,t,\\_ => []>}
     } ;
 
   accusative : Prep
diff --git a/src/morphodict/MorphoDictFin.gf b/src/morphodict/MorphoDictFin.gf
index c02132c19..8500bce06 100644
--- a/src/morphodict/MorphoDictFin.gf
+++ b/src/morphodict/MorphoDictFin.gf
@@ -24619,7 +24619,7 @@ lin pienennös_N = mkN {s = d39 "pienennös"} ;
 lin pienentyä_V = mkV {s = c52A "pienentyä"} ;
 lin pienentää_V = mkV {s = c54A "pienentää"} ;
 lin pienetä_V = mkV {s = c72 "pienetä"} ;
-lin pieni_N = mkN {s = d26 "pieni"} ;
+lin pieni_A = mkA (mkN {s = d26 "pieni"}) ;
 lin pieniä_V = mkV {s = c61 "pieniä"} ;
 lin piennar_N = mkN {s = d49A "piennar"} ;
 lin pienoinen_N = mkN {s = d38 "pienoinen"} ;
diff --git a/src/morphodict/MorphoDictFinAbs.gf b/src/morphodict/MorphoDictFinAbs.gf
index 30a1067cb..2783ee099 100644
--- a/src/morphodict/MorphoDictFinAbs.gf
+++ b/src/morphodict/MorphoDictFinAbs.gf
@@ -24613,7 +24613,7 @@ fun pienennös_N : N ;
 fun pienentyä_V : V ;
 fun pienentää_V : V ;
 fun pienetä_V : V ;
-fun pieni_N : N ;
+fun pieni_A : A ;
 fun pieniä_V : V ;
 fun piennar_N : N ;
 fun pienoinen_N : N ;