diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index b9e0cac6..8ea10252 100644
--- a/src/korean/LexiconKor.gf
+++ b/src/korean/LexiconKor.gf
@@ -95,7 +95,7 @@ lin do_V2 = mkV2 do_V ;
 -- lin doctor_N = mkN "" ;
 -- lin dog_N = mkN "" ;
 -- lin door_N = mkN "" ;
--- lin drink_V2 = mkV2 "" ;
+lin drink_V2 = mkV2 "마시다" ;
 -- lin dry_A = mkA "" ;
 -- lin dull_A = mkA "" ;
 -- lin dust_N = mkN "" ;
@@ -209,7 +209,7 @@ lin laugh_V = mkV "웃다" ;
 -- lin leave_V2 = mkV2 "" ;
 -- lin leg_N = mkN "" ;
 -- lin lie_V = mkV "" ;
-lin like_V2 = mkV2 (mkV "좋다") topic subject ;
+lin like_V2 = mkV2 (mkV "좋아" do_V) topic object ;
 -- lin listen_V2 = mkV2 "" ;
 -- lin live_V = mkV "";
 -- lin liver_N = mkN "" ;
diff --git a/src/korean/PhraseKor.gf b/src/korean/PhraseKor.gf
index cb1b719b..6a678f00 100644
--- a/src/korean/PhraseKor.gf
+++ b/src/korean/PhraseKor.gf
@@ -19,7 +19,7 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
     UttVP vp = {s = linVP vp} ;
     UttCN cn = {s = cn.rs ++ cn.s ! Bare} ;
     UttCard n = {s = n.s ! NK ! Indep} ;
-    UttAP ap = { s = ap.s ! VF Plain Pos} ;
+    UttAP ap = { s = ap.compar ++ ap.s ! VF Plain Pos} ;
 
     NoPConj = {s = []} ;
 --    PConjConj conj = {s = conj.s1 ++ conj.s2 ! …} ;
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index ea4f03c1..60b3f719 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -101,8 +101,8 @@ lin something_NP = mkNoun "무엇" ;
 -- lin before_Prep = mkPrep "" ;
 lin behind_Prep = mkPrep "뒤에" False ;
 -- lin between_Prep = = mkPrep "" ;
--- lin by8agent_Prep = mkPrep ;
--- lin by8means_Prep = mkPrep ;
+lin by8agent_Prep = mkPrep "에 의해" ; -- TODO check
+lin by8means_Prep = mkPrep "에 인해" ; -- TODO check
 -- lin during_Prep = mkPrep ;
 -- lin except_Prep = mkPrep ;
 lin for_Prep = mkPrep "에게" ;