diff --git a/src/korean/CatKor.gf b/src/korean/CatKor.gf
index 05a56da1b..af4b862c2 100644
--- a/src/korean/CatKor.gf
+++ b/src/korean/CatKor.gf
@@ -16,7 +16,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
     Cl = ResKor.ClSlash ;
     ClSlash = ResKor.ClSlash ;
     SSlash  = ResKor.Sentence ; -- sentence missing NP; e.g. "she has looked at"
-    Imp     = {s : Number => Polarity => Str} ; -- imperative             e.g. "look at this"
+    Imp     = {s : Polarity => Str} ; -- imperative             e.g. "look at this"
 
 --2 Questions and interrogatives
 
diff --git a/src/korean/MissingKor.gf b/src/korean/MissingKor.gf
index cd6f68227..5b700d48c 100644
--- a/src/korean/MissingKor.gf
+++ b/src/korean/MissingKor.gf
@@ -53,7 +53,6 @@ oper IdetIP : IDet -> IP  = notYet "IdetIP" ;
 oper IdetQuant : IQuant -> Num -> IDet  = notYet "IdetQuant" ;
 oper ImpP3 : NP -> VP -> Utt  = notYet "ImpP3" ;
 oper ImpPl1 : VP -> Utt  = notYet "ImpPl1" ;
-oper ImpVP : VP -> Imp  = notYet "ImpVP" ;
 oper ImpersCl : VP -> Cl  = notYet "ImpersCl" ;
 oper OrdDigits : Digits -> Ord  = notYet "OrdDigits" ;
 oper OrdNumeral : Numeral -> Ord  = notYet "OrdNumeral" ;
@@ -101,9 +100,6 @@ oper UseQCl : Temp -> Pol -> QCl -> QS  = notYet "UseQCl" ;
 oper UseSlash : Temp -> Pol -> ClSlash -> SSlash  = notYet "UseSlash" ;
 oper UttIAdv : IAdv -> Utt  = notYet "UttIAdv" ;
 oper UttIP : IP -> Utt  = notYet "UttIP" ;
-oper UttImpPl : Pol -> Imp -> Utt  = notYet "UttImpPl" ;
-oper UttImpPol : Pol -> Imp -> Utt  = notYet "UttImpPol" ;
-oper UttImpSg : Pol -> Imp -> Utt  = notYet "UttImpSg" ;
 oper UttInterj : Interj -> Utt  = notYet "UttInterj" ;
 oper UttQS : QS -> Utt  = notYet "UttQS" ;
 oper VPSlashPrep : VP -> Prep -> VPSlash  = notYet "VPSlashPrep" ;
diff --git a/src/korean/PhraseKor.gf b/src/korean/PhraseKor.gf
index 6026a9eda..0c17deb3d 100644
--- a/src/korean/PhraseKor.gf
+++ b/src/korean/PhraseKor.gf
@@ -8,11 +8,11 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
     UttIAdv iadv = iadv ;
     UttAdv adv = adv ;
     UttInterj i = i ;
-{-
-    UttImpSg pol imp =
-    UttImpPl pol imp =
+
+    UttImpSg pol imp = {s = imp.s ! pol.p} ;
+    UttImpPl,
     UttImpPol = UttImpSg ;
-    -}
+
     UttIP ip = {s = ip.s ! Bare} ;
 
     UttNP np = {s = np.s ! Bare} ;
diff --git a/src/korean/SentenceKor.gf b/src/korean/SentenceKor.gf
index 869b93ff0..3afe8a3a8 100644
--- a/src/korean/SentenceKor.gf
+++ b/src/korean/SentenceKor.gf
@@ -29,13 +29,13 @@ lin
   --  : Temp -> Pol -> ClSlash -> SSlash ; -- (that) she had not seen
   UseSlash t p cls = {
     } ;
-
+-}
 --2 Imperatives
   -- : VP -> Imp ;
-  ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
+  ImpVP vp = {s = \\pol => linVP (VF Polite pol) vp} ;
 
 --2 Embedded sentences
--}
+
   -- : S  -> SC ;
   EmbedS s = {s = s.s ! Subord ++ "것이"} ; -- TODO check subject case