diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90
index c5ca6426f..a3990cabd 100644
--- a/src/symba/symba_collision.f90
+++ b/src/symba/symba_collision.f90
@@ -775,7 +775,7 @@ subroutine symba_collision_mergeaddsub(system, param, colliders, frag, status)
                   plnew%status(1) = OLD_PARTICLE
                   do i = 2, nfrag
                      write(newname, FRAGFMT) frag%id(i)
-                     call plnew%info(i)%set_value(origin_type="Hit and run fragmention", origin_time=param%t, name=newname, origin_xh=plnew%xh(:,i), origin_vh=plnew%vh(:,i))
+                     call plnew%info(i)%set_value(origin_type="Hit and run fragment", origin_time=param%t, name=newname, origin_xh=plnew%xh(:,i), origin_vh=plnew%vh(:,i))
                   end do
                   do i = 1, ncolliders
                      if (colliders%idx(i) == ibiggest) cycle