diff --git a/tests/boolean/bcommon_2d/A7 b/tests/boolean/bcommon_2d/A7
index eae2028f4b..7c1b60b83b 100755
--- a/tests/boolean/bcommon_2d/A7
+++ b/tests/boolean/bcommon_2d/A7
@@ -4,3 +4,8 @@ bcommon result b a
 set length 942.478
 set nbsh_v 2
 set nbsh_e 2
+
+# OCC23698
+tcopy result r
+lprops result
+lprops r