diff --git a/CompoLib/ParametricCompoVM.vb b/CompoLib/ParametricCompoVM.vb
index 6eb347b..04b8f9c 100644
--- a/CompoLib/ParametricCompoVM.vb
+++ b/CompoLib/ParametricCompoVM.vb
@@ -97,6 +97,7 @@ Public Class ParametricCompoVM
       Dim nPart As Integer = EgtGetLastPart()
       EgtLuaSetGlobNumVar("TOOL.nId", nPart)
       EgtLuaCallFunction("TOOL.RenameNewPart")
+      EgtLuaCallFunction("TOOL.ReorganizeEdges")
       EgtLuaCallFunction("TOOL.ClearVariables")
 
       nPartId = EgtGetLastPart()