diff --git a/LuaLibs/ProcessCut.lua b/LuaLibs/ProcessCut.lua
index e7072f3..947bdde 100644
--- a/LuaLibs/ProcessCut.lua
+++ b/LuaLibs/ProcessCut.lua
@@ -262,6 +262,7 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione con testa da sopra
 local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, nLimitingSurf, bForceTangentLeadInOut)
+   local sWarn
    -- ingombro del grezzo
    b3Raw = b3Raw or EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
@@ -373,10 +374,17 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    end
    -- verifico se necessari tagli supplementari o se presente superficie limitante
    EgtOutLog( string.format( 'MaxDepth=%.1f MaxVertDepth=%.1f CutH=%.1f CutV=%.1f', dMaxDepth, dMaxVertDepth, dCutH, dCutV), 3)
+   -- se lungo, una faccia e rivolto sul retro verso l'alto si forzano i cubetti per evitare di rovinare il pezzo successivo
+   local bForceDicing = ( Proc.Fct == 1 and Proc.AffectedFaces.Left and bLongCut and vtN:getZ() > 10 * GEO.EPS_SMALL and vtN:getY() < 10 * GEO.EPS_SMALL)
    local vCuts = {}
-   if not Proc.AdvTail and ( dCutH > dMaxDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC or dCutV > dMaxVertDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC) then
+   if ( ( not Proc.AdvTail) or bForceDicing) and ( dCutH > dMaxDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC or dCutV > dMaxVertDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC) then
       local ptExtra, vtExtra
       local bAutoCalcSurf = true
+      if Proc.AdvTail then
+         -- do avviso che la lama può sbordare nel pezzo successivo
+         sWarn = 'Warning : Cut machining can damage next piece'
+         EgtOutLog( sWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
+      end
       if bFillAreaPiece or bFillTail then
          local ptMiddle = ( b3Solid:getMin() + b3Solid:getMax()) / 2
          ptExtra = Point3d( b3Solid:getMin():getX() + 5*GEO.EPS_SMALL, ptMiddle:getY(), ptMiddle:getZ())
@@ -415,7 +423,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
          end
       end
       -- se il taglio è più spesso della lama abilito il dicing, altrimenti no
-      if dMaxElev > dSawThick then
+      if ( dMaxElev > dSawThick) or bForceDicing then
          vCuts = DC.GetDice( nAddGrpId, EgtIf( bForced, b3Raw, b3Solid), ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, dNewDiceDim)
          -- se taglio sborda in coda e non è stato inserito nessun taglio a cubetti, lo rilancio con le dimensioni customizzate
          if ( bFillTail or bCustDiceCut) and #vCuts == 0 then
@@ -642,7 +650,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
       if not bOk then return bOk, sErr end
    end
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------
@@ -867,22 +875,31 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
       return false, sErr
    end
    local bNoDicing = false
+   local sWarn
    -- se taglio con testa da sopra
    if not bDownHead and not bDownTurn then
       local bOk, sErr, bNoDicing2 = MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, nLimitingSurf, bForceTangentLeadInOut)
       bNoDicing = bNoDicing2
-      if not bOk then return false, sErr end
+      if not bOk then
+         return false, sErr
+      else
+         sWarn = sErr
+      end
    -- altrimenti taglio con testa da sotto
    else
       local bOk, sErr = MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
-      if not bOk then return false, sErr end
+      if not bOk then
+         return false, sErr
+      else
+         sWarn = sErr
+      end
    end
    -- Aggiornamento ingombro (se vero taglio o richiesto)
    -- Se lascio il cordolo (bNoDicing) non aggiorno il grezzo perchè lo scarto rimane attaccato
    if ( ProcessCut.Identify( Proc) or bUpdateIng) and not bNoDicing then
       UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    end
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------