diff --git a/src/io/io.f90 b/src/io/io.f90
index 54f99e42b..79b72bb77 100644
--- a/src/io/io.f90
+++ b/src/io/io.f90
@@ -267,8 +267,8 @@ module subroutine io_dump_system(self, param)
       ! Dump the encounter history if necessary
       select type(param)
       class is (symba_parameters)
-         call param%encounter_history%dump(param)
-         call param%collision_history%dump(param)
+         if (param%lenc_save_trajectory .or. param%lenc_save_closest) call param%encounter_history%dump(param)
+         if (param%lfragmentation) call param%collision_history%dump(param)
       end select
 
       ! Dump the system history to file