diff --git a/LuaLibs/WProcessLapJoint.lua b/LuaLibs/WProcessLapJoint.lua
index 3fab0aa..57d5186 100644
--- a/LuaLibs/WProcessLapJoint.lua
+++ b/LuaLibs/WProcessLapJoint.lua
@@ -1,9 +1,10 @@
--- WProcessLapJoint.lua by Egaltech s.r.l. 2021/11/10
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2021/11/29
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
 -- 2021/09/03 DS Se due facce con sottosquadra ora si restituisce mesaaggio di errore.
 -- 2021/10/05 FM Gestione lavorazioni SideMill con creazione gola passaggio gambo utensile
+-- 2021/11/29 DS Correzione lav.ni SideMill quando più profonde che larghe.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -1347,7 +1348,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    -- eseguo
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtRemoveOperation( nMchFId)
+      EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
    return true
@@ -1614,7 +1615,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
             -- eseguo
             if not EgtApplyMachining( true, false) then
                local _, sErr = EgtGetLastMachMgrError()
-               EgtRemoveOperation( nMchFId)
+               EgtSetOperationMode( nMchFId, false)
                return false, sErr
             end
          end
@@ -1721,7 +1722,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
    -- eseguo
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtRemoveOperation( nMchFId)
+      EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
    -- verifico se devo lavorare anche la seconda faccia basandomi sul valore dell'angolo interno
@@ -1828,7 +1829,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       -- eseguo
       if not EgtApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
-         EgtRemoveOperation( nMchFId)
+         EgtSetOperationMode( nMchFId, false)
          return false, sErr
       end
    end
@@ -2104,7 +2105,7 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
       -- faccia orizzontale
       local nFacet = EgtIf( vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
       -- faccia verticale
-      local nFacetVert = EgtIf( nFacet == nFacInd, nFacInd2, nFacet)
+      local nFacetVert = EgtIf( nFacet == nFacInd, nFacInd2, nFacInd)
       local vtNV = EgtSurfTmFacetNormVersor( Proc.Id, nFacetVert, GDB_ID.ROOT)
       -- per evitare errori in casi di pezzi molto stretti, verifico le distanze in base alla direzione della faccia
 --       local dSideDist = min( abs( ptMid:getX() - b3Raw:getMin():getX()), abs( ptMid:getX() - b3Raw:getMax():getX()),