diff --git a/LuaLibs/WMachiningLib.lua b/LuaLibs/WMachiningLib.lua
index 17f756d..812dd73 100644
--- a/LuaLibs/WMachiningLib.lua
+++ b/LuaLibs/WMachiningLib.lua
@@ -232,7 +232,7 @@ function WMachiningLib.IsToolDoubleOk( sToolMasterName, sToolDoubleName)
                      ( abs( dTDiamTh - dTDiamThDouble) < 100 * GEO.EPS_SMALL) and
                      ( bTipFeed == bTipFeedDouble) and
                      ( abs( dTMaxDepthOnSide - dTMaxDepthOnSideDouble) < GEO.EPS_SMALL) and
-                     EgtTdbGetCurrToolParam( MCH_TP.ACTIVE)
+                     EgtFindToolInCurrSetup( sToolDoubleName)
    return bIsToolDoubleOk
 end
 
diff --git a/LuaLibs/WProcessDrill.lua b/LuaLibs/WProcessDrill.lua
index 690f664..a273ef1 100644
--- a/LuaLibs/WProcessDrill.lua
+++ b/LuaLibs/WProcessDrill.lua
@@ -170,7 +170,7 @@ local function IsToolDoubleOk( sToolMasterName, sToolDoubleName)
    -- controllo che siano uguali
    bIsToolDoubleOk = ( dTMaxMatDouble > dTMaxMat - 100 * GEO.EPS_SMALL) and
                      ( abs( dTDiam - dTDiamDouble) < 100 * GEO.EPS_SMALL) and
-                     EgtTdbGetCurrToolParam( MCH_TP.ACTIVE)
+                     EgtFindToolInCurrSetup( sToolDoubleName)
    return bIsToolDoubleOk
 end