diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
index a00313abb..0e0914012 100644
--- a/src/fraggle/fraggle_generate.f90
+++ b/src/fraggle/fraggle_generate.f90
@@ -884,6 +884,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu
             L_mag_factor = .mag.(collider%L_total(:,1) + collider%L_total(:,2))
             L_residual(:) = (collider%L_total(:,2) / L_mag_factor - collider%L_total(:,1)) / L_mag_factor
             call collision_util_velocity_torque(-L_residual(:) * L_mag_factor, collider%fragments%mtot, impactors%rbcom, impactors%vbcom)
+            nfrag = collider%fragments%nbody
 
 #ifdef DOCONLOC
             do concurrent(i = 1:nfrag) shared(collider, impactors)