diff --git a/src/finnish/ResFin.gf b/src/finnish/ResFin.gf
index 8a39b06e..b236f7ae 100644
--- a/src/finnish/ResFin.gf
+++ b/src/finnish/ResFin.gf
@@ -30,7 +30,7 @@ resource ResFin = ParamX ** open Prelude in {
 
 --- These cases are possible for subjects.
 
-    SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat ;
+    SubjCase = SCNom | SCGen | SCPart | SCIness | SCElat | SCAdess | SCAblat | SCAcc ;
 
 oper
   appSubjCase : SubjCase -> ResFin.NP -> Str = \sc,np -> np.s ! subjcase2npform sc ;
@@ -42,7 +42,8 @@ oper
     SCIness => NPCase Iness ;
     SCElat => NPCase Elat ;
     SCAdess => NPCase Adess ;
-    SCAblat => NPCase Ablat
+    SCAblat => NPCase Ablat ;
+    SCAcc => NPAcc 
     } ;
 
   npform2subjcase : NPForm -> SubjCase = \sc -> case sc of {
@@ -52,6 +53,7 @@ oper
     NPCase Elat => SCElat ;
     NPCase Adess => SCAdess ;
     NPCase Ablat => SCAblat ;
+    NPAcc => SCAcc ; 
     _ => SCNom
     } ;
 
diff --git a/src/finnish/StemFin.gf b/src/finnish/StemFin.gf
index f0de1ec1..00eb3558 100644
--- a/src/finnish/StemFin.gf
+++ b/src/finnish/StemFin.gf
@@ -378,7 +378,8 @@ oper
       s = \\t,a,b =>
         let
           agrfin = case vp.sc of {
-                    SCNom => <agr,True> ;
+                    SCNom => <agr, True> ;
+		    SCAcc => <agrP3 Sg, True> ;
                     _ => <agrP3 Sg,False>      -- minun täytyy, minulla on
                     } ;
           verb  = vp.s ! VIFin t ! a ! b ! agrfin.p1 ;