diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 2faee2b..aff82b1 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -3097,7 +3097,7 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
    local sWarn
    local dDepth = dElev
    if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
-      dDepth = dElev
+      dDepth = dMaxDepth - dElev
       EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
       dElev = dMaxDepth
       sWarn = 'Warning : elevation bigger than max tool depth'