diff --git a/src/korean/ConjunctionKor.gf b/src/korean/ConjunctionKor.gf
index 4f2ac1d1e..7e69601e2 100644
--- a/src/korean/ConjunctionKor.gf
+++ b/src/korean/ConjunctionKor.gf
@@ -101,8 +101,10 @@ lin
 
 oper
   mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
-    \\af,conj => ap.compar
-              ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ;
+    \\af,conj => ap.compar ++ case isPos af of {
+       True  => glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj ! ap.p) ;
+       False => glue (ap.s ! VStem Neg) (conjTable ! VStar ! conj ! ap.pNeg)
+    } ;
 
 {-
 lincat
diff --git a/src/korean/ParamKor.gf b/src/korean/ParamKor.gf
index 7f34fdf58..d498a2643 100644
Binary files a/src/korean/ParamKor.gf and b/src/korean/ParamKor.gf differ
diff --git a/src/korean/PhraseKor.gf b/src/korean/PhraseKor.gf
index 74c7ff15a..6026a9eda 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 linVF vp} ;
+    UttVP vp = {s = linVP (VF Plain Pos) 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} ;