diff --git a/src/korean/CatKor.gf b/src/korean/CatKor.gf
index 94be91df..a6fc9d84 100644
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -120,4 +120,5 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
 linref
   V, V2, V3 = linVerb ;
   VP = linVP linVF ;
+  AP = linAP ;
 }
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index d1b47262..541884d6 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -384,5 +384,5 @@ oper
 
 linVerb : Verb -> Str = \v -> v.s ! linVF ;
 linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ++ vp.adv ++ vp.s ! vf ;
-
+linAP : AdjPhrase -> Str = \ap -> ap.compar ++ ap.s ! linVF ;
 }