diff --git a/src/finnish/VerbFin.gf b/src/finnish/VerbFin.gf
index e70847c3a..cee24034d 100644
--- a/src/finnish/VerbFin.gf
+++ b/src/finnish/VerbFin.gf
@@ -79,7 +79,8 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
          ) ** {c2 = vp.c2} ; ---- correct ??
 -}
 
-    SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/
+----
+ SlashV2VNP = StemFin.slashV2VNP ; ---- compilation to pgf takes too long 6/8/2013 hence a simplified version in stemmed/
 
     AdvVP vp adv = insertAdv (\\_ => adv.s) vp ;
     ExtAdvVP vp adv = insertAdv (\\_ => embedInCommas adv.s) vp ;
diff --git a/src/finnish/infinitives/Infinitive.gf b/src/finnish/infinitives/Infinitive.gf
index ec1aa285d..c94cd6dfb 100644
--- a/src/finnish/infinitives/Infinitive.gf
+++ b/src/finnish/infinitives/Infinitive.gf
@@ -4,21 +4,23 @@ abstract Infinitive =
   Lexicon
     ** {
 
-fun
+flags startcat = Utt ;
+
+data
   PresPartPassSubjVP : VP -> VP ;      -- (minun) on mentävä
   PresPartPassObjVP : VPSlash -> VP ;  -- (oluesta) on pidettävä
 
   PastPartPassAdv : NP -> VP -> Adv ;  -- junan mentyä
 
-  PresPartActAP  : VP -> AP ;   -- (lihaa) syövä      
-  PastPartActAP  : VP -> AP ;   -- (lihaa) syönyt
+  PresPartActAP  : VP -> AP ;        -- (lihaa) syövä      
+  PastPartActAP  : VP -> AP ;        -- (lihaa) syönyt
   PresPartPassAP : VPSlash -> AP ;   -- (tänään) syötävä      
   PastPartPassAP : VPSlash -> AP ;   -- (tänään) syöty
 
   AgentPartAP   : NP -> VPSlash -> AP ;  -- koiran syömä      
 
 
-  Inf2InessAdv : NP -> VP -> Adv ;     -- junan mennessä
+  Inf2InessAdv : NP -> VP -> Adv ;       -- junan mennessä
   
   Inf2InessPassAdv    : VP -> Adv ;             -- odotettaessa (junaa), touhuttaessa (junan kanssa)
   Inf2InessPassInvAdv : NP -> VPSlash -> Adv ;  -- junaa odotettaessa, junan kanssa touhutessa
@@ -53,6 +55,5 @@ fun
   ComplPastPartPassVS   : VS -> NP -> VPSlash -> VP ;  -- sanoa junaa odotetun
 
   
-  
 
 }
\ No newline at end of file