Index: gc_lang/fr/rules.grx
==================================================================
--- gc_lang/fr/rules.grx
+++ gc_lang/fr/rules.grx
@@ -2193,11 +2193,11 @@
 
 # This graph is parsed only if option <ocr> is activated.
 
 ## Casse
 __ocr_casse__
-    ~^[A-ZÉÈÂÊÎÔ].
+    ~^[A-ZÉÈÂÊÎÔ]\w
         <<- \1.istitle() and before("\\w") and (morph(\1, ":G", ":M") or morph(\1, ":[123][sp]", ":[MNA]|>Est/"))
         -:>> =\1.lower()                                                                            # Erreur de numérisation ? Casse improbable.
 
     [L’|D’|N’|M’|T’|S’|C’|Ç’]  *WORD
         <<- before("\\w") and not \2.isupper() -1:>> =\1.lower()                                    # Erreur de numérisation ? Casse douteuse.