diff --git a/src/collision/collision_generate.f90 b/src/collision/collision_generate.f90
index 428911657..e5c3035b9 100644
--- a/src/collision/collision_generate.f90
+++ b/src/collision/collision_generate.f90
@@ -203,6 +203,7 @@ module subroutine collision_generate_merge(self, nbody_system, param, t)
                   ! its index in the main pl structure
                   ibiggest = impactors%id(maxloc(pl%Gmass(impactors%id(:)), dim=1))
                   fragments%id(1) = pl%id(ibiggest)
+                  if (allocated(fragments%info)) deallocate(fragments%info)
                   allocate(fragments%info, source=pl%info(ibiggest:ibiggest))
 
                   ! Compute the physical properties of the new body after the merge.