diff --git a/Disposition.cpp b/Disposition.cpp
index 89dd679..c5e4314 100644
--- a/Disposition.cpp
+++ b/Disposition.cpp
@@ -1037,6 +1037,7 @@ Disposition::SpecialApply( bool bRecalc)
    static const string EMC_VAR = "EMC" ;              // tabella variabili locali per calcolo
    static const string EVAR_TABNAME = ".TABNAME" ;    // IN  (string)  nome della tavola macchina 
    static const string EVAR_DISPID = ".DISPID" ;      // IN  (int)  identificativo della disposizione
+   static const string EVAR_PHASE = ".PHASE" ;        // IN  (int)  indice fase
    static const string EVAR_ERROR = ".ERR" ;          // OUT (int)  codice di errore ( 0 = ok)
    static const string EVAR_HEAD = ".HEAD" ;          // OUT (string) nome della testa
    static const string EVAR_EXIT = ".EXIT" ;          // OUT (int)  indice dell'uscita
@@ -1060,6 +1061,7 @@ Disposition::SpecialApply( bool bRecalc)
       bOk = bOk && pMch->LuaCreateGlobTable( EMC_VAR) ;
       bOk = bOk && pMch->LuaSetGlobVar( EMC_VAR + EVAR_TABNAME, m_sTabName) ;
       bOk = bOk && pMch->LuaSetGlobVar( EMC_VAR + EVAR_DISPID, m_nOwnerId) ;
+      bOk = bOk && pMch->LuaSetGlobVar( EMC_VAR + EVAR_PHASE, GetPhase()) ;
      // eseguo
       bOk = bOk && pMch->LuaCallFunction( ON_SPECIAL_APPLY, false) ;
      // recupero valori parametri obbligatori