diff --git a/LuaLibs/ProcessTenon.lua b/LuaLibs/ProcessTenon.lua
index c8612eb..8b90cb8 100644
--- a/LuaLibs/ProcessTenon.lua
+++ b/LuaLibs/ProcessTenon.lua
@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2021/01/20
+-- ProcessTenon.lua by Egaltech s.r.l. 2021/02/10
 -- Gestione calcolo tenone per Travi
 
 -- Tabella per definizione modulo
@@ -152,6 +152,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local dPockY = max( b3Ten:getMax():getY() - b3Aux:getMax():getY(), b3Aux:getMin():getY() - b3Ten:getMin():getY())
    local dPockL = sqrt( dPockX * dPockX + dPockY * dPockY)
    -- abilitazione lavorazione da sotto
+   local bMillUp = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.259)
    local bMillDown = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
    -- porto inizio curva il più possibile sul bordo
    BL.PutStartNearestToEdge( AuxId, b3Solid, bMillDown and not bShortPart)
@@ -228,6 +229,10 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- recupero la lavorazione
    local sMillType = EgtIf( bMillDown, 'Tenon_H2', 'Tenon')
    local sMilling = ML.FindMilling( sMillType, dTenH) or ML.FindMilling( sMillType)
+   if not sMilling and bMillUp then
+      sMillType = 'Tenon'
+      sMilling = ML.FindMilling( sMillType, dTenH) or ML.FindMilling( sMillType)
+   end
    if not sMilling then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
       EgtOutLog( sErr)