diff --git a/LuaLibs/ProcessTenon.lua b/LuaLibs/ProcessTenon.lua
index 156d32b..f756368 100644
--- a/LuaLibs/ProcessTenon.lua
+++ b/LuaLibs/ProcessTenon.lua
@@ -1,5 +1,6 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2021/02/11
+-- ProcessTenon.lua by Egaltech s.r.l. 2021/10/04
 -- Gestione calcolo tenone per Travi
+-- 2021/10/04 Corretto calcolo HCING per pezzi piccoli.
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -310,13 +311,15 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    if abs( vtN:getY()) > 0.1 or ( b3Raw:getDimZ() - Proc.Box:getDimZ()) < BD.MIN_HEIGHT then
       if Proc.Head then
          local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()
+         local dDelta = 0
          if abs( vtN:getY()) < 0.1 and vtN:getZ() > 0.5 then
-            dOffs = 0.5 * dOffs
+            dDelta = - 0.5 * dOffs
          end
          if bShortPart and b3Raw:getDimZ() < BD.VICE_MINH and abs( vtN:getZ()) > 0.575 then
             local b3Base = EgtSurfTmGetFacetBBoxGlob( Proc.Id, 0, GDB_BB.STANDARD)
-            dOffs = dOffs - 0.825 * b3Base:getDimX()
+            dDelta = min( dDelta, - 0.825 * b3Base:getDimX())
          end
+         dOffs = dOffs + dDelta
          BL.UpdateHCING( nRawId, dOffs)
       elseif Proc.Tail then
          local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()