diff --git a/src/korean/LexiconKor.gf b/src/korean/LexiconKor.gf
index 977f3ce2..f57e9e14 100644
--- a/src/korean/LexiconKor.gf
+++ b/src/korean/LexiconKor.gf
@@ -279,7 +279,7 @@ lin person_N = mkN "사람" ;
 -- lin read_V2 = mkV2 "" ;
 -- lin ready_A = mkA "" ;
 -- lin reason_N = mkN "" ;
-lin red_A = mkA "빨갛다" ;
+lin red_A = mkA "빨갛다" "빨개요" "빨갛습니다" "빨간" ;
 -- lin religion_N = mkN "" ;
 -- lin restaurant_N = mkN "" ;
 -- lin river_N = mkN "" ;
diff --git a/src/korean/ResKor.gf b/src/korean/ResKor.gf
index a6b4b725..e8907c24 100644
--- a/src/korean/ResKor.gf
+++ b/src/korean/ResKor.gf
@@ -300,12 +300,10 @@ oper
 
   Complement : Type = {
     s : VForm => Str ;
-    -- compar : Str ; -- comparative is discontinuous
     } ;
 
   emptyComp : Complement = {
     s = \\_ => [] ;
-    -- compar : Str ;
   } ;
 
   BaseVP : Type = {
diff --git a/src/korean/StructuralKor.gf b/src/korean/StructuralKor.gf
index 60b3f719..f3c5cb92 100644
--- a/src/korean/StructuralKor.gf
+++ b/src/korean/StructuralKor.gf
@@ -69,7 +69,7 @@ lin only_Predet = {s = \\_ => "만" ; p = Consonant} ;
 
 
 --lin every_Det = ;
-lin few_Det = mkDet "조금" Pl ;
+lin few_Det = mkDet "조금의" Pl ;
 lin many_Det = mkDet "많은" Pl ;
 -- lin much_Det = ;