diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90
index c65981beb..808ee2347 100644
--- a/src/symba/symba_encounter_check.f90
+++ b/src/symba/symba_encounter_check.f90
@@ -92,7 +92,7 @@ module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lan
          select type(tp => system%tp)
          class is (symba_tp)
             allocate(lencmask(self%nenc))
-            lencmask(:) = (self%status(1:self%nenc) == ACTIVE) .and. (self%level(:) == irec - 1)
+            lencmask(:) = (self%status(1:self%nenc) == ACTIVE) .and. (self%level(1:self%nenc) == irec - 1)
             if (.not.any(lencmask(:))) return
             associate(ind1 => self%index1, ind2 => self%index2) 
                do concurrent(k = 1:self%nenc, lencmask(k))