diff --git a/src/collision/collision_resolve.f90 b/src/collision/collision_resolve.f90
index 3fbbbee84..0166711ab 100644
--- a/src/collision/collision_resolve.f90
+++ b/src/collision/collision_resolve.f90
@@ -601,7 +601,7 @@ module subroutine collision_resolve_plpl(self, nbody_system, param, t, dt, irec)
 
                      call collision_history%take_snapshot(param,nbody_system, t, "after") 
 
-                     plpl_collision%status(i) = collider%status
+                     plpl_collision%status(k) = collider%status
                      call impactors%dealloc()
                   end do