diff --git a/LuaLibs/ProcessCut.lua b/LuaLibs/ProcessCut.lua
index 1684f3a..dc9f555 100644
--- a/LuaLibs/ProcessCut.lua
+++ b/LuaLibs/ProcessCut.lua
@@ -17,6 +17,7 @@
 -- 2022/08/25 In caso di AdvTail con taglio lungo Y la profondità di lavorazione è opportunamente diminuita.
 -- 2022/08/30 Modificata la condizione che determina l'utilizzo della testa da sotto. Ora controlla se la trave è più grande del doppio della massima larghezza del cubetto.
 -- 2022/09/23 Corretta la condizione per cui è richiesto l'aggiornamento del grezzo.
+-- 2022/01/26 Migliorata la direzione di lavoro della lama in alcuni casi in cui il truciolo veniva scaricato dal lato errato.
 
 -- Tabella per definizione modulo
 local ProcessCut = {}
@@ -522,8 +523,10 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
             vtOrthoO = -X_AX()
          end
       else
-         if vtN:getZ() < dVzLimDwnUp or Proc.Head or Proc.Tail then
+         if vtN:getZ() < dVzLimDwnUp or Proc.Tail or ( Proc.Head and abs( vtN:getY()) > 0.01) then
             vtOrthoO = EgtIf( vtN:getY() > -0.02, -Y_AX(), Y_AX())
+         elseif Proc.Head then
+            vtOrthoO = EgtIf( vtN:getY() > -0.02, Y_AX(), -Y_AX())
          else
             vtOrthoO = EgtIf( vtN:getY() > 0.02, Y_AX(), -Y_AX())
          end
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 4dd05e0..0d9ba6d 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -60,6 +60,7 @@
 -- 2022/12/16 Implementato parametro Q_SIDE_ROUGH_TOOL anche per L20
 -- 2022/12/21 Sistemata gestione SideMillAsSaw.
 -- 2022/01/19 In MakeMoreFaces -> MakeBySideMill aggiunto controllo che lo step finale non superi lo spessore utensile.
+-- 2022/01/24 In MakeByPocket gestito caso il caso in cui veniva applicata una fresatura con percorso vuoto. Ora viene rimossa e la tasca viene fatta con lama.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -4941,7 +4942,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   end
                elseif Proc.Fct == 3 and bIsL then
                   -- per rifinire gli angoli premio utensile diam 25 o da BD
-                  dDiam = min( ( 2 * dDiam) - 1, BD.MAXDIAM_POCK_CORNER)
+                  dDiam = min( ( 2 * dDiam) + 10 * GEO.EPS_SMALL, BD.MAXDIAM_POCK_CORNER)
                else
                   dDiam = 2 * dDiam
                end