diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90
index 218eb9274..7c0a05c91 100644
--- a/src/symba/symba_collision.f90
+++ b/src/symba/symba_collision.f90
@@ -70,9 +70,10 @@ module subroutine symba_collision_check_plplenc(self, system, param, t, dt, irec
                   call system%mergesub_list%append(pl, lmask)
 
                   ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step
-                  pl%lcollision(ind1(k)) = .true.
-                  pl%lcollision(ind2(k)) = .true.
+                  pl%lcollision([ind1(k), ind2(k)]) = .true.
+                  pl%ldiscard([ind1(k), ind2(k)]) = .true.
                end do
+
             end if
          end associate
       end select