diff --git a/lib/src/catalan/LexiconCat.gf b/lib/src/catalan/LexiconCat.gf
index 2d7be1aaa..453c3fd93 100644
--- a/lib/src/catalan/LexiconCat.gf
+++ b/lib/src/catalan/LexiconCat.gf
@@ -91,7 +91,7 @@ lin
    girl_N = regFN "noia" ;
    glove_N = regMN "guant" ;
    gold_N = regMN "or" ;
-   good_A = mkADeg (mkA "bó" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
+   good_A = mkADeg (mkA "bo" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
    go_V = (verbV (anar_4 "anar")) ;
    green_A = regADeg "verd" ;
    harbour_N = regMN "port" ;
diff --git a/lib/src/catalan/MorphoCat.gf b/lib/src/catalan/MorphoCat.gf
index b52b61b90..d97b4f73d 100644
--- a/lib/src/catalan/MorphoCat.gf
+++ b/lib/src/catalan/MorphoCat.gf
@@ -120,6 +120,7 @@ oper
   mkAdjReg : Str -> Adj = \prim ->
 	case last prim of {
 		"e"|"u"|"o"	=> adjFondo prim ;
+		"l"|"r"       => adjFidel prim ;
 		_			=> adjPrim prim  
 	} ;