diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 514f014..a88bd24 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2021/05/12
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/06/04
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -14,6 +14,7 @@
 -- 2021/04/23 Corretto caso con antischeggia non inseriti perchè inutili.
 -- 2021/04/27 Antischeggia solo se feature trasversali.
 -- 2021/05/12 Semplificata gestione diametro minimo utensile per svuotatura.
+-- 2021/06/04 Su U passante con faccia perpendicolare aggiunta si forza Pocket.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3054,7 +3055,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    if bClosedOrthoFaces then
       local bTryWithBlades = true
       -- lavoro fessura con svuotature (singola o doppia contrapposta)
-      local nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, 'Pocket', false, b3Solid, bClosedOrthoFaces)
+      local sMyMchFind = 'Pocket'
+      local nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
       if nOk < 0 then
          return false, sErr
       elseif nOk > 0 then
@@ -3519,7 +3521,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                            -- o passare subito dalla lavorazione con lama/sega catena
                            if Proc.Fct == 3 and bIsU then
                               -- lavoro con svuotature (singola o doppia contrapposta)
-                              nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMchFind, true, b3Solid)
+                              local sMyMchFind = 'Pocket'
+                              nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, true, b3Solid)
                               -- se lavorazione non idonee ( asse della feature troppo inclinato e impossibile lavorare completamente da due parti)
                               if nOk == -2 then
                                  if not sMchFind then 
@@ -3576,7 +3579,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      -- o passare subito dalla lavorazione con lama/sega catena
                      if bTrySidePocketAtFirst and Proc.Fct == 3 and bIsU then
                         -- lavoro con svuotature (singola o doppia contrapposta)
-                        nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMchFind, true, b3Solid)
+                        local sMyMchFind = 'Pocket'
+                        nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, true, b3Solid)
                         if nOk == -2 then
                            if not sMchFind then 
                               sMchFind = sMchFindBackUp 
diff --git a/Process.lua b/Process.lua
index d9b7f05..5064491 100644
--- a/Process.lua
+++ b/Process.lua
@@ -8,7 +8,7 @@
 -- Intestazioni
 require( 'EgtBase')
 _ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
+EgtEnableDebug( true)
 
 -- Imposto direttorio libreria specializzata per Travi
 local sBaseDir = EgtGetSourceDir()