diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 72ed4ec..e2a2996 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -62,7 +62,8 @@
 -- 2023/01/19 In MakeMoreFaces -> MakeBySideMill aggiunto controllo che lo step finale non superi lo spessore utensile.
 -- 2023/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.
 -- 2023/02/06 Alla MakeDrillOnCorner aggiunto controllo distanza di sicurezza minima.
--- 2023/02/16 Piccola correziona alla scelta utensile di svuotatura.
+-- 2023/02/16 Piccola correzione alla scelta utensile di svuotatura.
+-- 2023/02/21 Piccola correzione alla MakeByPocket.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3503,22 +3504,21 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
          local bMakeContour = false
          local sMilling
          if dFacElev < dMinFaceElevForPocket and ( bIsU or bIsL) and ( Proc.Fct == 2 or Proc.Fct == 3) and abs( vtN:getZ()) > 0.996 then
-            bMakeContour = true
             -- recupero la lavorazione di contornatura
             sMilling = ML.FindMilling( 'Prof', nil, nil, nil, nil, not bMillDown, bMillDown)
             if not sMilling then
                local sMyWarn = 'Warning : Prof not found in library'
                EgtOutLog( sMyWarn)
-               return true, sMyWarn
             end
             -- recupero i dati dell'utensile
             dDiamTool = 50
             dMaxDepth = 0
-            if EgtMdbSetCurrMachining( sMilling) then
+            if sMilling and EgtMdbSetCurrMachining( sMilling) then
                local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
                if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
                   dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
                   dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dToolMaxDepth
+                  bMakeContour = true
                end
             end
          end