diff --git a/src/encounter/encounter_util.f90 b/src/encounter/encounter_util.f90
index 8cdc5c94f..c2597377a 100644
--- a/src/encounter/encounter_util.f90
+++ b/src/encounter/encounter_util.f90
@@ -201,7 +201,7 @@ module subroutine encounter_util_resize_storage(self, nnew)
       end if
 
       if (nnew > nold) then
-         allocate(encounter_storage(nnew) :: tmp) 
+         allocate(encounter_storage(2 * nnew) :: tmp) 
          if (lmalloc) then
             do i = 1, nold
                if (allocated(self%frame(i)%item)) tmp%frame(i) = self%frame(i)%item