diff --git a/src/BOPTools/BOPTools_AlgoTools2D_1.cxx b/src/BOPTools/BOPTools_AlgoTools2D_1.cxx
index e6591cf698..6b1246e806 100644
--- a/src/BOPTools/BOPTools_AlgoTools2D_1.cxx
+++ b/src/BOPTools/BOPTools_AlgoTools2D_1.cxx
@@ -58,9 +58,9 @@ static
 //purpose  : 
 //=======================================================================
 Standard_Integer BOPTools_AlgoTools2D::AttachExistingPCurve
-  (const TopoDS_Edge& aE2, // old
-   const TopoDS_Edge& aE1, // new
-   const TopoDS_Face& aF, 
+  (const TopoDS_Edge& theE2, // old
+   const TopoDS_Edge& theE1, // new
+   const TopoDS_Face& theF, 
    const Handle(IntTools_Context)& aCtx)
 {
   Standard_Boolean bIsToReverse, bIsClosed, bComp;
@@ -73,6 +73,13 @@ Standard_Integer BOPTools_AlgoTools2D::AttachExistingPCurve
   //
   iRet=0;
   //
+  TopoDS_Face aF = theF;
+  aF.Orientation (TopAbs_FORWARD);
+  TopoDS_Edge aE1 = theE1;
+  aE1.Orientation (TopAbs_FORWARD);
+  TopoDS_Edge aE2 = theE2;
+  aE2.Orientation (TopAbs_FORWARD);
+  //
   aC2Dold=BRep_Tool::CurveOnSurface(aE2, aF, aT21, aT22);
   if (aC2Dold.IsNull()){
     iRet=1;
diff --git a/tests/bugs/modalg_7/bug30760 b/tests/bugs/modalg_7/bug30760
new file mode 100644
index 0000000000..71f5a27170
--- /dev/null
+++ b/tests/bugs/modalg_7/bug30760
@@ -0,0 +1,78 @@
+puts "TODO CR29596 ALL: Warning: Intersection of pair of shapes has failed"
+
+puts "========"
+puts "30760: Modeling Algorithms - Intersection fails in Occt 7.3.0"
+puts "========"
+puts ""
+
+restore [locate_data_file bug30760_shapes.brep] a12
+# copy the shape to use in other operation
+# with different order of arguments
+tcopy a12 a21
+
+explode a12
+bclearobjects
+bcleartools
+baddobjects a12_1
+baddtools a12_2
+bfillds
+
+bbop r12_0 0
+bbop r12_1 1
+bbop r12_2 2
+bbop r12_3 3
+bbop r12_4 4
+bbuild r12_5
+
+explode a21
+bclearobjects
+bcleartools
+baddobjects a21_2
+baddtools a21_1
+bfillds
+
+bbop r21_0 0
+bbop r21_1 1
+bbop r21_3 2; # for different order cut = cut21
+bbop r21_2 3; # for different order cut21 = cut
+bbop r21_4 4
+bbuild r21_5
+
+
+foreach i { 0 1 2 3 4 5} {
+  checkshape r12_$i
+  if {![regexp "OK" [bopcheck r12_$i]]} {
+    puts "Error: r12_$i is self-intersecting shape"
+  }
+
+  checkprops r12_$i -equal r21_$i 
+  checknbshapes r12_$i -ref [nbshapes r21_$i]
+}
+
+foreach i { 0 1 2 3 4 5} {
+  checkshape r21_$i
+  if {![regexp "OK" [bopcheck r21_$i]]} {
+    puts "Error: r21_$i is self-intersecting shape"
+  }
+}
+
+checkprops r12_0 -s 0.0550925 -v 0.000106046
+checknbshapes r12_0 -wire 14 -face 14 -shell 1 -solid 1 -t
+
+checkprops r12_1 -s 0.84475 -v 0.00502274
+checknbshapes r12_1 -wire 34 -face 34 -shell 1 -solid 1 -t
+
+checkprops r12_2 -s 0.765963 -v 0.00366102
+checknbshapes r12_2 -wire 24 -face 24 -shell 1 -solid 1 -t
+
+checkprops r12_3 -s 0.117011 -v 0.00125568
+checknbshapes r12_3 -wire 14 -face 14 -shell 1 -solid 1 -t
+
+checkprops r12_4 -l 1.99738
+checksection r12_4 -r 8
+
+checkprops r12_5 -s 0.99316 -v 0.00512878
+checknbshapes r12_5 -wire 43 -face 43 -shell 3 -solid 3 -t
+
+
+checkview -display r12_5 -2d -path ${imagedir}/${test_image}.png