diff --git a/src/polish/CatPol.gf b/src/polish/CatPol.gf
index e8bcabaa..a5b47971 100644
--- a/src/polish/CatPol.gf
+++ b/src/polish/CatPol.gf
@@ -126,6 +126,7 @@ concrete CatPol of Cat = CommonX - [CAdv] ** open ResPol, Prelude, (R = ParamX)
   linref
     A = \a -> a.pos.s1 ;
     A2 = \a -> a.pos.s1 ++ a.c.s ;
+    PN = \pn -> pn.nom ;
 
 };