diff --git a/lib/src/urdu/PhraseUrd.gf b/lib/src/urdu/PhraseUrd.gf
index 7763a4a83..e398d3a31 100644
--- a/lib/src/urdu/PhraseUrd.gf
+++ b/lib/src/urdu/PhraseUrd.gf
@@ -15,6 +15,8 @@ concrete PhraseUrd of Phrase = CatUrd ** open Prelude, ResUrd in {
     UttVP vp = {s = infVP False vp (agrP3 Masc Sg)} ;
     UttAdv adv = adv ;
 	UttCN cn = {s = cn.s ! Sg ! Dir};
+    UttCard n = n ;
+    UttAP ap = {s = ap.s ! Sg ! Masc ! Dir ! Posit} ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ; ---
diff --git a/lib/src/urdu/RelativeUrd.gf b/lib/src/urdu/RelativeUrd.gf
index 813e3c325..b2286c5ff 100644
--- a/lib/src/urdu/RelativeUrd.gf
+++ b/lib/src/urdu/RelativeUrd.gf
@@ -14,7 +14,8 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
       c = Dir
       } ;
 
-{-    RelVP rp vp = {
+-- {-
+    RelVP rp vp = {
       s = \\t,p,o,ag => 
         let 
           agr = case rp.a of {
@@ -43,7 +44,7 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
 --		   };
       c = Dir
       } ;
--}
+-- -}
     FunRP p np rp = {
       s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s  ;
       a = RAg np.a