--- /dev/null
+puts "============"
+puts "OCC22831"
+puts "============"
+puts ""
+######################################################
+# Regression in boolean Cut - wrong result ( 6.5.2).
+######################################################
+
+pload XDE
+
+restore [locate_data_file bug22831_shape.brep] sh
+restore [locate_data_file bug22831_face.brep] f
+
+checkshape sh
+checkshape f
+
+prism pr f -0.0023732630088625609, 0.49562550631034025, 0.86853308809584784
+decho off
+checkshape pr
+## KO; Faulty shapes in variables faulty_1 to faulty_24
+decho on
+
+fixshape prf pr 1.e-4
+checkshape prf
+
+bopcheck prf
+bcut result sh prf
+
+set square 0.233021
+set 2dviewer 0