diff --git a/src/hungarian/MissingHun.gf b/src/hungarian/MissingHun.gf
index e6e198a9a..b060230d4 100644
--- a/src/hungarian/MissingHun.gf
+++ b/src/hungarian/MissingHun.gf
@@ -104,7 +104,6 @@ oper Use3N3 : N3 -> N2  = notYet "Use3N3" ;
 oper UseQCl : Temp -> Pol -> QCl -> QS  = notYet "UseQCl" ;
 oper UseSlash : Temp -> Pol -> ClSlash -> SSlash  = notYet "UseSlash" ;
 oper UttIAdv : IAdv -> Utt  = notYet "UttIAdv" ;
-oper UttIP : IP -> Utt  = notYet "UttIP" ;
 oper UttImpPl : Pol -> Imp -> Utt  = notYet "UttImpPl" ;
 oper UttImpPol : Pol -> Imp -> Utt  = notYet "UttImpPol" ;
 oper UttImpSg : Pol -> Imp -> Utt  = notYet "UttImpSg" ;
diff --git a/src/hungarian/PhraseHun.gf b/src/hungarian/PhraseHun.gf
index a96c97377..14fcb2cab 100644
--- a/src/hungarian/PhraseHun.gf
+++ b/src/hungarian/PhraseHun.gf
@@ -10,10 +10,9 @@ concrete PhraseHun of Phrase = CatHun ** open Prelude, ResHun in {
     UttImpSg pol imp =
     UttImpPl pol imp =
     UttImpPol = UttImpSg ;
-
-    UttIP ip = {s = ip.s ! } ;
 -}
-    UttNP np = {s = np.s ! Nom} ;
+    UttIP,
+    UttNP = \np -> {s = np.s ! Nom} ;
     UttVP vp = {s = vp.obj ++ vp.adv ++ vp.s ! VInf} ;
     UttAdv adv = adv ;
     UttCN cn = {s = cn.s ! Sg ! Nom} ;