diff --git a/Essetre-90480023_XS-MW.mlde b/Essetre-90480023_XS-MW.mlde
index 0ff69e9..0593a76 100644
--- a/Essetre-90480023_XS-MW.mlde
+++ b/Essetre-90480023_XS-MW.mlde
@@ -8,7 +8,7 @@ require( 'EmtGenerator')
 EgtEnableDebug( false)
 if not EmtModifyHeadAuxDirection then error( 'A newer version of the program is required (minimum 2.3j5)') end
 
-PP_VER = '3.1d1_DEV11'
+PP_VER = '3.1d1_DEV12'
 PP_NVER = '2.7.4.1'
 
 -- Parametri macchina
diff --git a/Essetre-WALL.NUM.mlpe b/Essetre-WALL.NUM.mlpe
index 48b17b1..3e6bcad 100644
--- a/Essetre-WALL.NUM.mlpe
+++ b/Essetre-WALL.NUM.mlpe
@@ -313,7 +313,7 @@ function OnRapid()
             local sEF = GetEF()
             local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
             local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-            local sEL = ' EL' .. EmtLenToString( ChSawLen, 3)
+            local sEL = ' EL' .. GetEL()
             local sER = ' ER' .. EmtLenToString( EMT.TLEN, 3)
             sOut = sOut .. sET .. sEU .. sEE .. sEF .. sEM .. sES .. sEL .. sER
             EmtOutput( sOut)
@@ -347,7 +347,7 @@ function OnRapid()
       local sEF = GetEF()
       local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
       local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-      local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ChSawLen), 3)
+      local sEL = ' EL' .. GetEL()
       local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
       sOut = sOut .. sET .. sEU .. sEE .. sEF .. sEM .. sES .. sEL .. sER
       EmtOutput( sOut)
@@ -375,7 +375,7 @@ function OnRapid()
          local sEF = ' EF20000'
          local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
          local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-         local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ChSawLen), 3)
+         local sEL = ' EL' .. GetEL()
          local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
          if not IsNailingHead( EMT.HEAD) then
             EmtOutput( 'G102'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..EmtGetAxis('R2')..EmtGetAxis('R1')..EMT.IPLGLSTR..sET..sEU..sEE..sEF..sEM..sES..sEL..sER)
@@ -424,7 +424,7 @@ function OnRapid()
             local sEF = GetEF()
             local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
             local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-            local sEL = ' EL' .. EmtLenToString( EMT.TLEN, 3)
+            local sEL = ' EL' .. GetEL()
             local sER = ' ER' .. EmtLenToString( EMT.TDIAM / 2, 3)
             sOut = sOut .. sET .. sEU .. sEE .. sEF .. sEM .. sES .. sEL .. sER
             EmtOutput( sOut)
@@ -439,7 +439,7 @@ function OnRapid()
             local sEF = GetEF()
             local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
             local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-            local sEL = ' EL' .. EmtLenToString( EMT.TLEN, 3)
+            local sEL = ' EL' .. GetEL()
             local sER = ' ER' .. EmtLenToString( EMT.TDIAM / 2, 3)
             sOut = sOut .. sET .. sEU .. sEE .. sEF .. sEM .. sES .. sEL .. sER
             EmtOutput( sOut)
@@ -493,7 +493,7 @@ function OnLinear()
       local sEF = ' EF20000'
       local sEM = ' EM'..EgtIf( EMT.S > 0, '3', '4')
       local sES = ' ES'..EgtNumToString( abs( EMT.S), 0)
-      local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ChSawLen), 3)
+      local sEL = ' EL' .. GetEL()
       local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
       if not IsNailingHead( EMT.HEAD) then
          EmtOutput( 'G102'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..EmtGetAxis('R2')..EmtGetAxis('R1')..EMT.IPLGLSTR..sET..sEU..sEE..sEF..sEM..sES..sEL..sER)
@@ -753,6 +753,18 @@ function GetEF()
    return ' EF60000'
 end
 
+
+---------------------------------------------------------------------
+function GetEL()
+   local dToolLen = EMT.TLEN
+   if EMT.HEAD == 'H12' then
+      dToolLen = dToolLen - SawOffsZ
+   elseif EMT.HEAD == 'H3' then
+      dToolLen = ChSawLen
+   end
+   return EgtNumToString( dToolLen, 3)
+end
+
 ---------------------------------------------------------------------
 function EmitCount()
    EMT.CNT = EMT.CNT + 1