diff --git a/src/korean/ConjunctionKor.gf b/src/korean/ConjunctionKor.gf
index 1aeaa4913..01f407db2 100644
--- a/src/korean/ConjunctionKor.gf
+++ b/src/korean/ConjunctionKor.gf
@@ -101,7 +101,7 @@ lin
 
 oper
   mkFirstAP : ResKor.AdjPhrase -> VForm => ConjType => Str = \ap ->
-    \\af,conj => ap.compar ++ glue (ap.s ! VStem) (conjTable ! VStar ! conj) ;
+    \\af,conj => ap.compar ++ glue (ap.s ! VStem Pos) (conjTable ! VStar ! conj) ;
 
 {-
 lincat
diff --git a/src/korean/ParamKor.gf b/src/korean/ParamKor.gf
index 24832b20a..575db8b5c 100644
Binary files a/src/korean/ParamKor.gf and b/src/korean/ParamKor.gf differ
diff --git a/src/korean/RelativeKor.gf b/src/korean/RelativeKor.gf
index 4150f6e49..7fbe1030d 100644
--- a/src/korean/RelativeKor.gf
+++ b/src/korean/RelativeKor.gf
@@ -10,7 +10,7 @@ lin
     s = \\t,a,p,cltyp =>
            rp.s ++ vp.adv ++ vp.nObj ++
            case cltyp of {
-             WithConj => vp.s ! VStem ;
+             WithConj => vp.s ! VStem p ;
              _        => vp.s ! VAttr p } ;
     } ;
 
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index 59bf669a1..1cc6c3736 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -153,7 +153,7 @@ oper
 
   mkAdj : Str -> Adjective = \plain ->
     let v : Verb = mkVerb plain ;
-        stem : Str = v.s ! VStem ;
+        stem : Str = v.s ! VStem Pos ;
         attrpos : Str = add_N stem ;
      in v2a attrpos v ;
 
@@ -207,7 +207,8 @@ oper
   mkVerbFull : (x1,_,_,_,_,_,_,_,x9 : Str) -> Verb =
     \stem,attrpos,attrneg,plain,polite,formal,planeg,polneg,formneg -> {
       s = table {
-        VStem => stem ;
+        VStem Pos => stem ;
+        VStem Neg => stem + "지" ++ "않" ;
         VAttr Pos => attrpos ;
         VAttr Neg => attrneg ;
         VF Plain Pos => plain ;
@@ -359,7 +360,7 @@ oper
     s = \\t,a,p,cltyp =>
            let vf = case cltyp of {
                       Subord   => VAttr p ;
-                      WithConj => VStem ;
+                      WithConj => VStem p ;
                       _        => VF Polite p } -- TODO: more tenses, politeness
             in np
             ++ vp.nObj -- an object, not copula complement