diff --git a/tests/heal/drop_small_edges/A4 b/tests/heal/drop_small_edges/A4
index 708add6bb6..dcbdb52c25 100644
--- a/tests/heal/drop_small_edges/A4
+++ b/tests/heal/drop_small_edges/A4
@@ -1,3 +1,5 @@
 puts "TODO OCC23127 ALL: Error : the resulting shape is not done."
+puts "TODO OCC23127 ALL: Tcl Exception:"
 puts "TODO OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_"
 restore [locate_data_file DSE3.rle] a
+puts "TEST COMPLETED"