diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 08040d7..09e92f3 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2023/09/26
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2024/03/15
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -99,6 +99,7 @@
 -- 2024/02/29 In lapjoint 2 facce (TestTwoFacesDownHead) migliorata la scelta della lama da sotto.
 -- 2024/03/01 Migliorata VerifyPocket.
 -- 2024/03/04 Implementato attacco esterno se tasca 4 facce sulla coda ma nessun pezzo successivo.
+-- 2024/03/15 Correzione a calcolo ingombro per feature basse e lunghe dalla testa.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -661,8 +662,10 @@ local function UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
       elseif Proc.Box:getCenter():getX() > b3Solid:getCenter():getX() then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
          local dDist = b3Solid:getMax():getX() - Proc.Box:getMax():getX()
-         -- se concavo aumento la distanza (rimane una punta...)
-         --if dAngT < 0 then dDist = dDist + 10 end
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateHCING( nRawId, dOffs, dDist)
       end
    end