diff --git a/src/french/NamesFre.gf b/src/french/NamesFre.gf
index 77637c847..dc935ba68 100644
--- a/src/french/NamesFre.gf
+++ b/src/french/NamesFre.gf
@@ -13,7 +13,7 @@ lin FullName gn sn = pn2np {
     } ;
 
 lin PlainLN n = heavyNP {
-      s = \\c => n.s;
+      s = \\c => prepCase c ++ n.s;
       a = {g = n.g ; n = n.num ; p = P3}
       } ;