diff --git a/LuaLibs/ProcessDtTenon.lua b/LuaLibs/ProcessDtTenon.lua
index 3d77ec7..1735c8f 100644
--- a/LuaLibs/ProcessDtTenon.lua
+++ b/LuaLibs/ProcessDtTenon.lua
@@ -5,6 +5,7 @@
 -- 2023/02/08 Aumentato il range per cui i tenoni vengono lavorati in sottosquadro.
 -- 2023/03/27 Migliorate condizioni scelta pretaglio con lama o fresa; gestione unificata con ProcessTenon.
 -- 2023/03/28 Corretta gestione faccia di base quando divisa in più parti per distanza massima da lavorare.
+-- 2024/02/29 Aumentato numero passaggi CR su tenone. Massimo 8
 
 -- Tabella per definizione modulo
 local ProcessDtTenon = {}
@@ -268,8 +269,8 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       dMaxDist = 2 * ( b3DtTen:getRadius() - b3DtAux:getRadius())
    end
    EgtOutLog( 'MaxDist=' .. EgtNumToString( dMaxDist, 3), 3)
-   -- Cicli di lavorazione (max 6)
-   local MAX_PASS = 6
+   -- Cicli di lavorazione (max 8)
+   local MAX_PASS = 8
    local nStep = min( ceil( dMaxDist / ( 0.7 * dTDiam)), MAX_PASS)
    local dStep = min( dMaxDist, 0.7 * dTDiam * MAX_PASS) / nStep
    for i = nStep, 1, -1 do