diff --git a/lib/src/finnish/ParadigmsFin.gf b/lib/src/finnish/ParadigmsFin.gf
index de916f8ed..9d4f25008 100644
--- a/lib/src/finnish/ParadigmsFin.gf
+++ b/lib/src/finnish/ParadigmsFin.gf
@@ -434,6 +434,11 @@ mkVS = overload {
         : Str) -> N = \a,b,c,d,e,f,g,h,i,j -> 
         lin N (nforms2snoun (nForms10 a b c d e f g h i j)) ;
 
+  mkSeparateN : Str -> N -> N = \unissa,kulkija -> {
+    s = \\c => unissa ++ kulkija.s ! c ; 
+    h = kulkija.h ;
+    lock_N = <>
+    } ;
   mkStrN : Str -> N -> N = \sora,tie -> {
     s = \\c => sora + tie.s ! c ; 
     h = tie.h ;
diff --git a/lib/src/finnish/stemmed/WNKotus.gf b/lib/src/finnish/stemmed/WNKotus.gf
index 6bff4185b..0fe69e6a0 100644
--- a/lib/src/finnish/stemmed/WNKotus.gf
+++ b/lib/src/finnish/stemmed/WNKotus.gf
@@ -11,7 +11,8 @@ oper
 
 -- lexicon constructors
 
-  separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ;
+  separateN : Str -> N -> N = mkSeparateN ; -- pennin raha
+---  separateN : Str -> N -> N = \s,n -> mkN (s + "_") n ; -- pennin_raha
 
   compoundN : Str -> NForms -> N = \s,nf -> lin N (mkStrN s (nforms2snoun nf)) ;