diff --git a/src/turkish/NounTur.gf b/src/turkish/NounTur.gf
index e36eda595..839ffad5b 100644
--- a/src/turkish/NounTur.gf
+++ b/src/turkish/NounTur.gf
@@ -18,11 +18,10 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
 
     UsePron p = p ;
 
-    -- TODO: look further into how correct this is.
     UsePN pn = { 
       s = \\c => pn.s ! Sg ! c;
       h = pn.h;
-      a = {n = Sg; p = P1}
+      a = {n = Sg; p = P3}
     } ;
 
     PossPron p = {s = []; useGen = YesGen p.a} ;
diff --git a/src/turkish/ParadigmsTur.gf b/src/turkish/ParadigmsTur.gf
index 07ae97b8b..36f220dd5 100644
--- a/src/turkish/ParadigmsTur.gf
+++ b/src/turkish/ParadigmsTur.gf
@@ -143,10 +143,10 @@ resource ParadigmsTur = open
     regN : Str -> N ;
 
     -- Paradigm for proper noun
-    regPN : Str -> Noun ;
+    regPN : Str -> PN ;
 
     -- Worst case function for proper nouns
-    makePN : Str -> Str -> Noun ;
+    makePN : Str -> Str -> PN ;
 
     -- digits can be seen as proper noun, but we need an additional harmony argument
     -- since harmony information can not be extracted from digit string.
@@ -611,7 +611,7 @@ resource ParadigmsTur = open
 
     ablat_Case : Prep = mkPrep [] Ablat;
     dat_Case   : Prep = mkPrep [] Dat;
-    acc_Case   : Prep = mkPrep [] Dat;
+    acc_Case   : Prep = mkPrep [] Acc;
 
     mkQuant : Str -> Quant = \s -> lin Quant {s=s; useGen = NoGen} ;
 
diff --git a/src/turkish/VerbTur.gf b/src/turkish/VerbTur.gf
index 2d168d80b..72bc93a3c 100644
--- a/src/turkish/VerbTur.gf
+++ b/src/turkish/VerbTur.gf
@@ -49,9 +49,9 @@ concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur
     CompAP ap = lin VP {
       s = table {
             VPres   agr => ap.s ! agr.n ! Nom ++ 
-                           case agr of {
-                             {n=Sg; p=P3} => [] ;
-                             _            => suffixStr ap.h (verbSuffixes ! agr)
+                           case agr.p of {
+                             P3 => [] ;
+                             _  => suffixStr ap.h (verbSuffixes ! agr)
                            } ;
             VProg   agr => ap.s ! agr.n ! Nom ;
             VPast   agr => ap.s ! agr.n ! Nom ++