diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index dfd9b45a8..7f8f21cd1 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -184,7 +184,7 @@ oper
     "아닙니다"
      Copula ;
 
-  copulaAfterConsonant : Verb = copula ** {
+  copulaAfterVowel : Verb = copula ** {
     s = \\vf => case vf of {
                   VF Plain Pos  => "다" ;
                   VF Polite Pos => "예요" ;
diff --git a/src/korean/VerbKor.gf b/src/korean/VerbKor.gf
index 8a5a39bdc..4963e8865 100644
--- a/src/korean/VerbKor.gf
+++ b/src/korean/VerbKor.gf
@@ -119,9 +119,11 @@ lin
   CompNP = \n -> emptyComp ** {
     s = \\vf =>
       let cop = case n.p of {
-                  Vowel => copula.s ;
-                  Consonant => copulaAfterConsonant.s }
-      in glue (n.s ! Bare) (cop ! vf)
+                  Vowel => copulaAfterVowel.s ;
+                  Consonant => copula.s }
+      in case vf of {
+          VF _ Pos => glue (n.s ! Bare) (cop ! vf) ;
+          VF _ Neg => n.s ! Bare ++ cop ! vf }
     } ;
 
   -- : Adv  -> Comp ;