diff --git a/tests/bugs/modalg_6/bug27746_1 b/tests/bugs/modalg_6/bug27746_1
new file mode 100644
index 0000000000..b82aa10e37
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27746_1
@@ -0,0 +1,25 @@
+puts "========"
+puts "OCC27746"
+puts "========"
+puts ""
+#################################################
+# Incomplete result of SECTION operation
+#################################################
+
+restore [locate_data_file bug27746_first.brep] b1
+restore [locate_data_file bug27746_second.brep] b2
+
+settolerance b2 1.e-7
+fixshape b2 b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+bbop result 4
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
+if { $nbv > 6 } { puts "Error : Section is incorrect" }
+
+checkprops result -l 88.2082
\ No newline at end of file
diff --git a/tests/bugs/modalg_6/bug27746_2 b/tests/bugs/modalg_6/bug27746_2
new file mode 100644
index 0000000000..0b4c83bb65
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27746_2
@@ -0,0 +1,26 @@
+puts "========"
+puts "OCC27746"
+puts "========"
+puts ""
+#################################################
+# Incomplete result of SECTION operation
+#################################################
+
+restore [locate_data_file bug27746_first.brep] b1
+restore [locate_data_file bug27746_second.brep] b2
+
+explode b1 f; compound b1_60 b1_61 b1
+explode b2 f; compound b2_14 b2_18 b2
+donly b1 b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+bbop result 4
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
+if { $nbv != 2 } { puts "Error : Section is incorrect" }
+
+checkprops result -l 4.39869
\ No newline at end of file
diff --git a/tests/bugs/modalg_6/bug27746_3 b/tests/bugs/modalg_6/bug27746_3
new file mode 100644
index 0000000000..97a4c2105a
--- /dev/null
+++ b/tests/bugs/modalg_6/bug27746_3
@@ -0,0 +1,26 @@
+puts "========"
+puts "OCC27746"
+puts "========"
+puts ""
+#################################################
+# Incomplete result of SECTION operation
+#################################################
+
+restore [locate_data_file bug27746_first.brep] b1
+restore [locate_data_file bug27746_second.brep] b2
+
+explode b1 f; compound b1_60 b1_61 b1
+explode b2 f; compound b2_21 b2_37 b2
+donly b1 b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+bbop result 4
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
+if { $nbv != 2 } { puts "Error : Section is incorrect" }
+
+checkprops result -l 4.39869
\ No newline at end of file