diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index fb5fb3954..97b2303be 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -167,7 +167,7 @@ module subroutine rmvs_step_in_pl(self, cb, tp, config, t, dt)
 
       dti = dt / NTPHENC
 
-      associate(pl => self, npl => self%nbody, xht => tp%xh, vht => tp%vh, plind => self%plind, nenc => pl%nenc)
+      associate(pl => self, npl => self%nbody, xht => tp%xh, vht => tp%vh, plind => self%plind, nenc => self%nenc)
          if (config%loblatecb) call pl%obl_acc_in(cb)
          call pl%make_planetocentric(cb, tp, config)
          do i = 1, npl