diff --git a/LuaLibs/ProcessTenon.lua b/LuaLibs/ProcessTenon.lua
index 253b715..3d3b593 100644
--- a/LuaLibs/ProcessTenon.lua
+++ b/LuaLibs/ProcessTenon.lua
@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2020/09/07
+-- ProcessTenon.lua by Egaltech s.r.l. 2020/10/06
 -- Gestione calcolo tenone per Travi
 
 -- Tabella per definizione modulo
@@ -146,7 +146,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local b3Aux = EgtGetBBoxRef( AuxId, GDB_BB.STANDARD, frTen)
    local dPockX = max( b3Ten:getMax():getX() - b3Aux:getMax():getX(), b3Aux:getMin():getX() - b3Ten:getMin():getX())
    local dPockY = max( b3Ten:getMax():getY() - b3Aux:getMax():getY(), b3Aux:getMin():getY() - b3Ten:getMin():getY())
-   local dPockL = max( dPockX, dPockY)
+   local dPockL = sqrt( dPockX * dPockX + dPockY * dPockY)
    -- porto inizio curva il più possibile sul bordo
    BL.PutStartNearestToEdge( AuxId, b3Solid)
    -- se vero tenone inclinato o non esattamente alle estremità, necessario taglio di lama sulla testa