diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index c2f8ed2..159b7e7 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2021/10/21
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/10/27
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -28,6 +28,7 @@
 -- 2021/10/06 Ad antischeggia con lama in presenza di testa da sotto aggiunta preferenza a testa da sopra.
 -- 2021/10/19 Corretta gestione inversione per Tunnel. OpenPocket anche se spezzato ma 1 o 2 facce. Introdotta lunghezza minima per lamello.
 -- 2021/10/21 Migliorato controllo affondamento utensile in U lavorato da 3 parti (anche da sotto).
+-- 2021/10/27 Migliorato calcolo asse tunnel o similare.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -457,8 +458,11 @@ local function GetTunnelDimension( Proc, nPartId)
       ptC[i], vtN[i] = EgtSurfTmFacetCenter( Proc.Id, i - 1, GDB_ID.ROOT)
    end
    -- calcolo l'orientamento del tunnel
-   local vtOrtho = vtN[1] ^ vtN[2]
-   if vtOrtho:isSmall() then
+   local vtOrtho
+   local bAdj = EgtSurfTmFacetsContact( Proc.Id, 0, 1)
+   if bAdj then
+      vtOrtho = vtN[1] ^ vtN[2]
+   else
       if Proc.Fct >= 3 then
          vtOrtho = vtN[1] ^ vtN[3]
       else