diff --git a/Days.Mod b/Days.Mod
index 37732d9..8611a21 100644
--- a/Days.Mod
+++ b/Days.Mod
@@ -49,6 +49,7 @@ MODULE Days;
        w[i].next := w[j];
        j := i; dec(j);
        w[i].prev := w[j];
+       INC(i)
      UNTIL i > 6;
  END init;