diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 8dc4fd6..2c4cc41 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -34,6 +34,7 @@
 -- 2021/11/22 Corretta segnalazione warning su foro di L20 e L25.
 -- 2021/12/17 Lettura parametri Q solo all'inizio.
 -- 2022/01/13 Estrapolazione da MakeMoreFaces() di MakeTwoFaces() e MakeThreeFaces(), e varie ottimizzazioni.
+-- 2022/01/19 Cambiata % lunghezza pezzo per spezzatura. Tolta correzione spessore fresa a disco con superficie da lavorare verso Z-.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -2680,7 +2681,7 @@ local function MakeByMillAsSaw( Proc, FData, nBottomFace, sMillingOnSide, dSawDi
       end
       for i = 1, nStep do
          local dOffs = ( i - 1) * dStep
-         if vtN:getZ() < BD.NZ_MINA then dOffs = dOffs + dSawThick end
+         --if vtN:getZ() < BD.NZ_MINA then dOffs = dOffs + dSawThick end
          local bOk, sErr, nMchId = Fbs.MakeOne( Proc.Id, nFacAdj, sCutting, dSawDiam, nFaceUse, -0.01, 0, BD.CUT_SIC, dOffs, dStartDist, dEndDist, nil, _b3Raw)
          if not bOk then return bOk, sErr end
          -- setto l'elevazione
@@ -5200,7 +5201,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- se lunghezza richiede spezzatura
    if ( Proc.Box:getDimX() > BD.LONGCUT_MAXLEN) or
-      ( Proc.Box:getDimX() > 0.8 * _b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) then
+      ( Proc.Box:getDimX() > 0.7 * _b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) then
       -- una faccia
       if Proc.Fct == 1 then
          if bUseBlade and nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0 then