diff --git a/src/symba/symba_fragmentation.f90 b/src/symba/symba_fragmentation.f90
index 335ab9e66..5a2d49bd6 100644
--- a/src/symba/symba_fragmentation.f90
+++ b/src/symba/symba_fragmentation.f90
@@ -81,6 +81,12 @@ module function symba_fragmentation_casedisruption(system, param, family, x, v,
          write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
          status = ACTIVE 
          nfrag = 0
+         select type(pl => system%pl)
+         class is (symba_pl)
+            pl%status(family(:)) = status
+            pl%ldiscard(family(:)) = .false.
+            pl%lcollision(family(:)) = .false.
+         end select
       else
          ! Populate the list of new bodies
          write(*,'("Generating ",I2.0," fragments")') nfrag
@@ -360,6 +366,12 @@ module function symba_fragmentation_casesupercatastrophic(system, param, family,
          write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
          status = ACTIVE 
          nfrag = 0
+         select type(pl => system%pl)
+         class is (symba_pl)
+            pl%status(family(:)) = status
+            pl%ldiscard(family(:)) = .false.
+            pl%lcollision(family(:)) = .false.
+         end select
       else
          ! Populate the list of new bodies
          write(*,'("Generating ",I2.0," fragments")') nfrag