diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index 4889987..06b712c 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -1,4 +1,4 @@
--- BeamLib.lua by Egaltech s.r.l. 2021/09/12
+-- BeamLib.lua by Egaltech s.r.l. 2021/11/19
 -- Libreria globale per Travi
 -- 2020/07/28 Corretto calcolo attacchi e uscite di lame per non uscire dalla faccia sotto.
 -- 2020/08/18 Aggiunto a GetNearestParalOpposite e GetNearestOrthoOpposite parametro opzionale vtNorm.
@@ -966,7 +966,7 @@ function BeamLib.MakeOneFaceBySaw( nSurfId, nFacet, sCutting, dSawDiam, Par5, dV
    -- posizione braccio
    EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
    local nSCC = MCH_SCC.NONE
-   if not BD.C_SIMM or vtRef:getZ() < 0.866 then
+   if not BD.C_SIMM or vtRef:getZ() < 0.866 or abs( vtTg:getZ()) > 0.02 then
       if abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL then
          nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
       else
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 449986a..20ad81d 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2021/11/15
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/11/22
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -31,6 +31,7 @@
 -- 2021/10/27 Migliorato calcolo asse tunnel o similare.
 -- 2021/11/02 In svuotatura con lati aperti diametro fresa non superiore al doppio del lato piccolo. 
 -- 2021/11/15 Quando si usa sega a catena uso Q10 come massima elevazione.
+-- 2021/11/22 Corretta segnalazione warning su foro di L20 e L25.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5255,10 +5256,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   local bOk, sWarn2
                   bOk, sWarn2 = MakeDrillOnCorner( Proc, nPhase, nRawId, nPartId, b3Raw, nFacInd, nAddGrpId, dDiamTool)
                   if not bOk then return false, sWarn2 end
-                  sWarn = sWarn .. '\n' .. sWarn2
                   if sWarn2 then
                      if not sWarn then sWarn = '' end
-                     sWarn = sWarn .. '\n' .. sWarn2
                      sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
                   end
                -- altrimenti se abilitato dal parametro Q inserisco percorso di pulitura