diff --git a/src/BRepMesh/BRepMesh_FastDiscret.cxx b/src/BRepMesh/BRepMesh_FastDiscret.cxx
index 1690227c5b..622a3b2c04 100644
--- a/src/BRepMesh/BRepMesh_FastDiscret.cxx
+++ b/src/BRepMesh/BRepMesh_FastDiscret.cxx
@@ -846,6 +846,7 @@ void BRepMesh_FastDiscret::update(
     aNewParamsVec       (aNodesCount) = aEAttr.FirstParam;
 
     ++aNodesCount;
+    Standard_Integer aPrevNodeId  = ivf;
     Standard_Integer aLastPointId = myAttribute->LastPointId();
     for (Standard_Integer i = 2; i < aNodesNb; ++i)
     {
@@ -855,15 +856,21 @@ void BRepMesh_FastDiscret::update(
       if (!aEdgeTool->Value(i, aParam, aPnt, aUV))
         continue;
 
-      myBoundaryPoints->Bind(++aLastPointId, aPnt);
-
+      // Imitate index of 3d point in order to not to add points to map without necessity.
       Standard_Integer iv2, isv;
-      myAttribute->AddNode(aLastPointId, aUV.Coord(), BRepMesh_Frontier, iv2, isv);
+      myAttribute->AddNode(aLastPointId + 1, aUV.Coord(), BRepMesh_Frontier, iv2, isv);
+      if (aPrevNodeId == iv2)
+        continue;
+
+      // Ok, now we can add point to the map.
+      myBoundaryPoints->Bind (++aLastPointId, aPnt);
 
       aNewNodesInStructVec(aNodesCount) = aLastPointId;
       aNewNodesVec        (aNodesCount) = isv;
       aNewParamsVec       (aNodesCount) = aParam;
+
       ++aNodesCount;
+      aPrevNodeId = iv2;
     }
 
     aNewNodesInStructVec(aNodesCount) = ipl;
diff --git a/tests/bugs/mesh/bug27239 b/tests/bugs/mesh/bug27239
new file mode 100644
index 0000000000..ec491d4615
--- /dev/null
+++ b/tests/bugs/mesh/bug27239
@@ -0,0 +1,29 @@
+puts "========="
+puts "OCC27239"
+puts "========="
+puts ""
+#################################
+# Meshing algorithm creates wrong triangulation
+#################################
+pload ALL
+restore [locate_data_file bug27239_f1.brep] result
+
+set bug_info [incmesh result 0.1]
+if {[regexp "NoError" $bug_info] != 1} {
+    puts "Error: failure during triangulation"
+}
+
+set log [tricheck result]
+if { [llength $log] != 0 } {
+  puts "Error : Some faces has failed to mesh"
+}
+
+checkshape result
+
+explode result e
+set edge_dump [dump result_4]
+if {[regexp "5 5" $edge_dump] != 0} {
+    puts "Error: there are duplicating nodes in polygon on triangulation"
+}
+
+checkview -display result -3d -path ${imagedir}/${test_image}.png