diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index 65827df..ce2c6aa 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -23,6 +23,7 @@
 -- 2023/02/22 Modifiche a SetOpenSide, aggiunte ChangeOrOpenStart e CurveWithOnlyStraightLines.
 -- 2023/06/12 In ChangeOrOpenStart corretta ricerca segmento più lungo.
 -- 2023/09/13 Aggiunte funzioni Is3EdgesApprox e GetProcessAffectedFaces.
+-- 2023/09/25 In GetFaceWithMostAdj aggiunta verifica sottosquadro anche per facce non adiacenti.
 
 -- Tabella per definizione modulo
 local BeamLib = {}
@@ -577,9 +578,9 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dCosSideAng)
             end
             -- verifico eventuale intersezione tra la faccia i-1 esima e la proiezione dell'altra sulla stessa
             local nShadowFacetId = EgtCopySurfTmFacet( nSurfId, j - 1, nAddGrpId)
-            EgtCutSurfTmPlane( nShadowFacetId, vPtC[i], -vvtN[i], false, GDB_RT.GLOB)
             local nMasterContourId = EgtExtractSurfTmFacetLoops( nSurfId, i - 1, nAddGrpId)
             local nShadowContourId = EgtExtractSurfTmLoops( nShadowFacetId, nAddGrpId)
+            EgtCutSurfTmPlane( nShadowFacetId, vPtC[i], -vvtN[i], false, GDB_RT.GLOB)
             if nMasterContourId and nShadowContourId then
                local nMasterSurfFlatId = EgtSurfFlatRegion( nAddGrpId, nMasterContourId)
                local frOCSMaster = Frame3d( vPtC[i], vvtN[i])