diff --git a/src/korean/NounKor.gf b/src/korean/NounKor.gf
index 73ef7f626..f8a25e8bc 100644
--- a/src/korean/NounKor.gf
+++ b/src/korean/NounKor.gf
@@ -23,8 +23,7 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
     } ;
 
   -- : PN -> NP ;
---  UsePN pn = pn ** {
---    } ;
+  UsePN pn = pn ;
 
   -- : Pron -> NP ;
   UsePron pron = pron ** {empty = []};
diff --git a/src/korean/ParadigmsKor.gf b/src/korean/ParadigmsKor.gf
index 73746fb41..5cd59732e 100644
--- a/src/korean/ParadigmsKor.gf
+++ b/src/korean/ParadigmsKor.gf
@@ -30,6 +30,8 @@ oper
 
   -- mkA2 : Str -> Prep -> A2 ;
 
+  mkPN : Str -> PN
+   = \s -> lin PN (mkNoun s) ;
 --2 Verbs
 
   -- Verbs
diff --git a/src/korean/SymbolKor.gf b/src/korean/SymbolKor.gf
index 2d04509aa..dd10943a0 100644
--- a/src/korean/SymbolKor.gf
+++ b/src/korean/SymbolKor.gf
@@ -1,7 +1,7 @@
 --# -path=.:../abstract:../common:../prelude
 
 concrete SymbolKor of Symbol = CatKor **
-  open Prelude, ParadigmsKor, ResKor, (NS=NounKor) in {
+  open Prelude, ResKor in {
 
 lin
 
@@ -15,7 +15,14 @@ lin
   FloatPN i = mkPN i.s ;
 
   -- : Card -> PN ;                -- twelve [as proper name]
-  NumPN i = mkPN i.s ;
+  NumPN i = mkPN (i.s ! NK ! Indep) ;
+
+oper
+
+  mkPN : Str -> NounPhrase = \s -> {
+    s = \\_ => s ;
+    p = Consonant ; -- ??
+    } ;
 
 {-
 lin