diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
index 68b05fed4..8dace48ff 100644
--- a/src/symba/symba_frag_pos.f90
+++ b/src/symba/symba_frag_pos.f90
@@ -452,7 +452,7 @@ function symba_frag_pos_fragment_velocity(nfrag, m_frag, x_frag, v_r_unit, Lambd
             exit
          else 
             v_r_mag_01(:) = v_r_mag_02(:)
-            v_r_mag_02(:) = v_r_mag(:)
+            v_r_mag_02(:) = v_r_mag(1:4)
          end if
       end do