diff --git a/tests/heal/drop_small_edges/A4 b/tests/heal/drop_small_edges/A4
index 3592d5ec6b..16b83cdf67 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: Faulty shapes in variables faulty_1 to faulty_6"
+puts "TODO OCC23127 ALL: Tcl Exception:"
 restore [locate_data_file DSE3.rle] a
+puts "TEST COMPLETED"