diff --git a/LuaLibs/WMachiningLib.lua b/LuaLibs/WMachiningLib.lua
index acce115..d41caad 100644
--- a/LuaLibs/WMachiningLib.lua
+++ b/LuaLibs/WMachiningLib.lua
@@ -7,6 +7,7 @@
 -- 2023/07/13 In FindMilling, FindPocketing aggiunta la possibilità di limitare la ricerca lavorazioni alla sola testa specificata.
 -- 2023/10/18 In SetCurrMachiningAndTool sostituito controllo di utensile attivo con controllo utensile nel setup corrente.
 -- 2023/10/30 In FindPocketing aggiunto parametro per poter escludere le frese che non lavorano di testa.
+-- 2023/10/31 In IsToolDoubleOk permessa una lunghezza inferiore di 5.5mm dell'utensile secondario rispetto al principale.
 
 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -226,11 +227,11 @@ function WMachiningLib.IsToolDoubleOk( sToolMasterName, sToolDoubleName)
    local dTDiamThDouble = EgtTdbGetCurrToolThDiam() or 0
    local bHasTipFeedDouble = EgtTdbGetCurrToolParam( MCH_TP.TIPFEED) ~= 0
    local dTMaxDepthOnSideDouble = EgtIf( bIsBladeDouble, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 999, 0.5 * ( dTDiamDouble - dTDiamThDouble)))
-   -- controllo che siano uguali
+   -- controllo che siano uguali ( permetto una leggera differenza di lunghezza)
    bIsToolDoubleOk = bIsPrimaryHead and
                      ( bIsBlade == bIsBladeDouble) and
                      ( dTMaxMatDouble > dTMaxMat - 100 * GEO.EPS_SMALL) and
-                     ( dTMaxDepthDouble > dTMaxDepth - 100 * GEO.EPS_SMALL) and
+                     ( dTMaxDepthDouble > dTMaxDepth - 5.5) and
                      ( abs( dTDiam - dTDiamDouble) < 100 * GEO.EPS_SMALL) and
                      ( abs( dTDiamTh - dTDiamThDouble) < 100 * GEO.EPS_SMALL) and
                      ( bHasTipFeed == bHasTipFeedDouble) and