diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index 17cfe62cf..ad6269471 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -391,7 +391,7 @@ subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, config)
 
       rhill2 = pl%rhill(ipleP)**2
       mu = pl%Gmass(ipleP)
-      associate( nenc => tp%nbody, xpc => tp%xh, vpc => tp%vh)
+      associate(nenc => tp%nbody, xpc => tp%xh, vpc => tp%vh)
          if (lfirst) then
             do i = 1, nenc
                if (tp%status(i) == ACTIVE) then