diff --git a/LuaLibs/BeamExec.lua b/LuaLibs/BeamExec.lua
index 980fb61..a56117b 100644
--- a/LuaLibs/BeamExec.lua
+++ b/LuaLibs/BeamExec.lua
@@ -41,7 +41,7 @@
 -- 2022/12/28 Implementata gestione forature e code di rondine in doppio.
 -- 2023/01/31 Implementata gestione mortase in doppio.
 -- 2023/01/31 Nelle lavorazioni in doppio aggiunta la minima distanza tra le feature.
-
+-- 2023/02/17 Ora le forature che intersecano le mortase sono sempre fatte prima della mortasa stessa.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -695,12 +695,12 @@ local function OrderFeatures( vProc, b3Raw)
          return B1.Head
       end
       -- se primo è foro e secondo è un ribasso, il foro va sempre prima
-      if Drill.Identify(B1) and LapJoint.Identify(B2) and
+      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
          B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
          return true
       end
       -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
-      if LapJoint.Identify(B1) and Drill.Identify(B2) and
+      if (LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end