Index: compile_rules_graph.py
==================================================================
--- compile_rules_graph.py
+++ compile_rules_graph.py
@@ -48,12 +48,12 @@
     sCode = sCode.replace("__also__", "bCondMemo")
     sCode = sCode.replace("__else__", "not bCondMemo")
     sCode = sCode.replace("sContext", "_sAppContext")
     sCode = re.sub(r"(morph|morphVC|analyse|value|tag|displayInfo)[(]\\(\d+)", 'g_\\1(lToken[nTokenOffset+\\2]', sCode)
     sCode = re.sub(r"(morph|morphVC|analyse|value|tag|displayInfo)[(]\\-(\d+)", 'g_\\1(lToken[nLastToken-\\2+1]', sCode)
-    sCode = re.sub(r"(select|exclude|define|define_from)[(][\\](\d+)", 'g_\\1(lToken[nTokenOffset+\\2]', sCode)
-    sCode = re.sub(r"(select|exclude|define|define_from)[(][\\]-(\d+)", 'g_\\1(lToken[nLastToken-\\2+1]', sCode)
+    sCode = re.sub(r"(select|exclude|define|define_from|change_meta)[(][\\](\d+)", 'g_\\1(lToken[nTokenOffset+\\2]', sCode)
+    sCode = re.sub(r"(select|exclude|define|define_from|change_meta)[(][\\]-(\d+)", 'g_\\1(lToken[nLastToken-\\2+1]', sCode)
     sCode = re.sub(r"(tag_before|tag_after)[(][\\](\d+)", 'g_\\1(lToken[nTokenOffset+\\2], dTags', sCode)
     sCode = re.sub(r"(tag_before|tag_after)[(][\\]-(\d+)", 'g_\\1(lToken[nLastToken-\\2+1], dTags', sCode)
     sCode = re.sub(r"space_after[(][\\](\d+)", 'g_space_between_tokens(lToken[nTokenOffset+\\1], lToken[nTokenOffset+\\1+1]', sCode)
     sCode = re.sub(r"space_after[(][\\]-(\d+)", 'g_space_between_tokens(lToken[nLastToken-\\1+1], lToken[nLastToken-\\1+2]', sCode)
     sCode = re.sub(r"analyse_with_next[(][\\](\d+)", 'g_merged_analyse(lToken[nTokenOffset+\\1], lToken[nTokenOffset+\\1+1]', sCode)

Index: gc_core/js/lang_core/gc_engine.js
==================================================================
--- gc_core/js/lang_core/gc_engine.js
+++ gc_core/js/lang_core/gc_engine.js
@@ -1461,10 +1461,17 @@
         sValue = (nRight !== null) ? sValue.slice(nLeft, nRight) : sValue.slice(nLeft);
     }
     oToken["lMorph"] = _oSpellChecker.getMorph(sValue);
     return true;
 }
+
+function g_change_meta (oToken, sType) {
+    // Disambiguation: change type of token
+    oToken["sType"] = sType;
+    return true;
+}
+
 
 
 //////// GRAMMAR CHECKER PLUGINS
 
 ${pluginsJS}

Index: gc_core/py/lang_core/gc_engine.py
==================================================================
--- gc_core/py/lang_core/gc_engine.py
+++ gc_core/py/lang_core/gc_engine.py
@@ -1119,10 +1119,15 @@
 
 def g_tag (dToken, sTag):
     "returns True if <sTag> is present on token <dToken>"
     return "aTags" in dToken and sTag in dToken["aTags"]
 
+
+def g_meta (dToken, sType):
+    "returns True if <sType> is equal to the token type"
+    return dToken["sType"] == sType
+
 
 def g_space_between_tokens (dToken1, dToken2, nMin, nMax=None):
     "checks if spaces between tokens is >= <nMin> and <= <nMax>"
     nSpace = dToken2["nStart"] - dToken1["nEnd"]
     if nSpace < nMin:
@@ -1188,10 +1193,11 @@
         echo("Error. There should be a token at this position: ", nPos)
         return True
     dTokenPos[nPos]["lMorph"] = lMorph
     return True
 
+
 
 #### Disambiguation for graph rules
 
 def g_select (dToken, sPattern, lDefault=None):
     "select morphologies for <dToken> according to <sPattern>, always return True"
@@ -1242,10 +1248,16 @@
         dToken["lMorph"] = _oSpellChecker.getMorph(dToken["sValue"][slice(nLeft, nRight)])
     else:
         dToken["lMorph"] = _oSpellChecker.getMorph(dToken["sValue"])
     return True
 
+
+def g_change_meta (dToken, sType):
+    "Disambiguation: change type of token"
+    dToken["sType"] = sType
+    return True
+
 
 
 #### GRAMMAR CHECKER PLUGINS
 
 ${plugins}

Index: gc_lang/fr/rules.grx
==================================================================
--- gc_lang/fr/rules.grx
+++ gc_lang/fr/rules.grx
@@ -3605,10 +3605,16 @@
 TEST: les {{CXIèmes}}                           ->> CXIᵉˢ
 
 
 
 !!!! Dates                                                                                        !!
+
+__fusion_date__
+    *NUM  -  ~^\d\d?$  - ~^\d{2,5}$
+        <<- \1.isdigit() ~>> ␣
+        <<- =>> change_meta(\1, "DATE")
+
 
 __date_jour_mois_année__
     31 [avril|juin|septembre|novembre]
         <<- /date/ space_after(\1, 1, 1) ->> 30 \2                                                  # Cette date est invalide. Il n’y a que 30 jours en \2.
 
@@ -3622,18 +3628,11 @@
 TEST: le {{30 février}}
 TEST: {{29 février 2011}}
 
 
 __date_journée_jour_mois_année__
-    *NUM - *NUM - ~^\d{2,5}$
-        <<- \1.isdigit() and \2.isdigit() ~>> ␣
-
     ([lundi|mardi|mercredi|jeudi|vendredi|samedi|dimanche])  ?,¿  ?le¿  (~^\d\d?$) - (~^\d\d?$) - (~^\d{2,5}$)
-        <<- /date/ not after("^ +av(?:ant|) +J(?:C|ésus-Christ)") and not checkDay(\1, \2, \3, \4)
-        -1>> =getDay(\2, \3, \4)
-        # Le jour de la date suivante est incorrect (selon le calendrier grégorien).|https://fr.wikipedia.org/wiki/Passage_du_calendrier_julien_au_calendrier_gr%C3%A9gorien
-
     ([lundi|mardi|mercredi|jeudi|vendredi|samedi|dimanche])  ?,¿  ?le¿  (~^\d\d?$)  ([janvier|février|mars|avril|mai|juin|juillet|aout|août|septembre|octobre|novembre|décembre])  (~^\d{2,5}$)
         <<- /date/ not after("^ +av(?:ant|) +J(?:C|ésus-Christ)") and not checkDay(\1, \2, \3, \4)
         -1>> =getDay(\2, \3, \4)
         # Le jour de la date suivante est incorrect (selon le calendrier grégorien).|https://fr.wikipedia.org/wiki/Passage_du_calendrier_julien_au_calendrier_gr%C3%A9gorien