From 2acf43b64b4cc58de6908872fd7b86e5c9fd7612 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 13 Sep 2005 21:05:32 +0000
Subject: [PATCH] fix in tc

---
 resource/finnish/SyntaxFin.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/resource/finnish/SyntaxFin.gf b/resource/finnish/SyntaxFin.gf
index 9f2a436d0..0b732fedd 100644
--- a/resource/finnish/SyntaxFin.gf
+++ b/resource/finnish/SyntaxFin.gf
@@ -739,7 +739,10 @@ oper
 -}
 
   complCase : Bool -> ComplCase -> SVIForm -> NPForm = \b,c,v -> case c of {
-    CCase k => NPCase k ;
+    CCase k => case <k,b> of {
+      <Nom,False> => NPCase Part ;
+      _ => NPCase k
+      } ;
     CAcc => case b of {
       True => case v of {
         SCl _ => NPAccGen ;