diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
index d3091155d..1f8626242 100644
--- a/src/symba/symba_io.f90
+++ b/src/symba/symba_io.f90
@@ -252,7 +252,7 @@ module subroutine symba_io_write_discard(self, param)
             nsub = mergesub_list%ncomp(isub)
             do j = 1, nadd
                if (iadd <= mergeadd_list%nbody) then
-                  write(LUN, NAMEFMT) SUB, mergesub_list%id(iadd), mergesub_list%status(iadd)
+                  write(LUN, NAMEFMT) ADD, mergesub_list%id(iadd), mergesub_list%status(iadd)
                   write(LUN, VECFMT) mergeadd_list%xh(1, iadd), mergeadd_list%xh(2, iadd), mergeadd_list%xh(3, iadd)
                   write(LUN, VECFMT) mergeadd_list%vh(1, iadd), mergeadd_list%vh(2, iadd), mergeadd_list%vh(3, iadd)
                else