diff --git a/src/korean/CatKor.gf b/src/korean/CatKor.gf
index 84f7df4a0..17a66ac21 100644
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -119,5 +119,6 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
     PN = ResKor.NounPhrase ;
 
 linref
-  V, V2, V3, VP = linVerb ;
+  V, V2, V3 = linVerb ;
+  VP = linVP linVF ;
 }
diff --git a/src/korean/PhraseKor.gf b/src/korean/PhraseKor.gf
index 6a678f008..aaa6a434a 100644
--- a/src/korean/PhraseKor.gf
+++ b/src/korean/PhraseKor.gf
@@ -16,7 +16,7 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
     UttIP ip = {s = ip.s ! Bare} ;
 
     UttNP np = {s = np.s ! Bare} ;
-    UttVP vp = {s = linVP vp} ;
+    UttVP vp = {s = linVP linVF vp} ;
     UttCN cn = {s = cn.rs ++ cn.s ! Bare} ;
     UttCard n = {s = n.s ! NK ! Indep} ;
     UttAP ap = { s = ap.compar ++ ap.s ! VF Plain Pos} ;
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index b94414d4d..d47257803 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -372,6 +372,6 @@ oper
 -- linrefs
 
 linVerb : Verb -> Str = \v -> v.s ! linVF ;
-linVP : VerbPhrase -> Str = \vp -> vp.nObj ++ vp.adv ++ vp.s ! linVF ;
+linVP : VForm -> VerbPhrase -> Str = \vf,vp -> vp.nObj ++ vp.adv ++ vp.s ! vf ;
 
 }
diff --git a/src/korean/SentenceKor.gf b/src/korean/SentenceKor.gf
index cc9a7f474..59574a9f9 100644
--- a/src/korean/SentenceKor.gf
+++ b/src/korean/SentenceKor.gf
@@ -43,7 +43,7 @@ lin
   -- EmbedQS qs = { } ;
 
   -- : VP -> SC ;
-  EmbedVP vp = {s = vp.s ! VAttr Pos ++ "것이"} ;
+  EmbedVP vp = {s = linVP (VAttr Pos) vp ++ "것이"} ;
 
 --2 Sentences