diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 7dd915e..bf607a4 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -77,6 +77,7 @@
 -- 2023/09/26 In MakeLongMoreFaces migliorata gestione spezzatura di Tunnel.
 -- 2023/09/26 Modificata chiamata a GetFaceWithMostAdj.
 -- 2023/09/27 In MakeMoreFaces e Classify refactoring della gestione scanalatura chiusa.
+-- 2023/09/27 In MakeLongMoreFaces aggiunto Topology.Classify alla Proc creata.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5628,7 +5629,8 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    for i = 1, #vAddId do
       local b3Box = EgtGetBBoxGlob( vAddId[i], GDB_BB.STANDARD)
       local nFct = EgtSurfTmFacetCount( vAddId[i])
-      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg}
+      local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId}
+      Topology.Classify( AddProc, b3Raw)
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn 
       bOk, sMyWarn, bPrevBhSideMill = MakeMoreFaces( AddProc, nPhase, nRawId, nPartId, dOvmHead, bAllWithEndCap, bPrevBhSideMill, bAllWithEndCap)