diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
index d54027696..9b6d11463 100644
--- a/src/symba/symba_util.f90
+++ b/src/symba/symba_util.f90
@@ -1304,6 +1304,7 @@ module subroutine symba_util_take_collision_snapshot(self, param, t, stage)
 
       select case(stage)
       case("before")
+         ! Saves the states of the bodies involved in the collision before the collision is resolved
          associate (idx => self%colliders%idx, ncoll => self%colliders%ncoll)
             allocate(symba_pl :: self%colliders%pl)
             select type(pl => self%colliders%pl)
@@ -1324,7 +1325,6 @@ module subroutine symba_util_take_collision_snapshot(self, param, t, stage)
          allocate(snapshot%colliders, source=self%colliders) 
          allocate(snapshot%fragments, source=self%fragments)
          !call symba_util_save_storage(self,snapshot,t)
-         deallocate(snapshot)
       end select
 
       return