diff --git a/src/encounter/encounter_util.f90 b/src/encounter/encounter_util.f90
index 0297c769c..e6a786be2 100644
--- a/src/encounter/encounter_util.f90
+++ b/src/encounter/encounter_util.f90
@@ -517,7 +517,7 @@ module subroutine encounter_util_snapshot(self, param, system, t, arg)
 
                               ! Save the snapshot
                               param%encounter_history%nid = param%encounter_history%nid + ntp_snap + npl_snap
-                              call encounter_util_save_encounter(param%encounter_history,snapshot)
+                              call encounter_util_save_snapshot(param%encounter_history,snapshot)
                            case("closest")
                               associate(plplenc_list => system%plplenc_list, pltpenc_list => system%pltpenc_list)
                                  if (any(plplenc_list%lclosest(:))) then
@@ -576,7 +576,7 @@ module subroutine encounter_util_snapshot(self, param, system, t, arg)
                                           pl_snap%vh(:,2) = vb(:,2) + vcom(:)
 
                                           call pl_snap%sort("id", ascending=.true.)
-                                          call encounter_util_save_encounter(param%encounter_history,snapshot)
+                                          call encounter_util_save_snapshot(param%encounter_history,snapshot)
                                        end if
                                     end do
 
@@ -605,4 +605,4 @@ end subroutine encounter_util_snapshot
 
 
 
-end submodule s_encounter_util
\ No newline at end of file
+end submodule s_encounter_util