diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90
index 253fb2700..c154b4290 100644
--- a/src/symba/symba_discard.f90
+++ b/src/symba/symba_discard.f90
@@ -24,7 +24,7 @@ subroutine symba_discard_cb_pl(pl, system, param)
       associate(npl => pl%nbody, cb => system%cb)
          call system%set_msys()
          rmin2 = param%rmin**2
-         rmax2 = param%rmax*2
+         rmax2 = param%rmax**2
          rmaxu2 = param%rmaxu**2
          do i = 1, npl
             if (pl%status(i) == ACTIVE) then