September Morn Update

Task/Extensible-prime-generator/Seed7/extensible-prime-generator.seed7

@@ -59,6 +59,6 @@ const proc: main is func
     writeln("Number of primes between 7,700 and 8,000: " <& count);
     repeat
       aPrime := getPrime;
-    until primeNum = 10000;
+    until primeNum = 9999; # discard up to and including the 9,999 prime!
     writeln("The 10,000th prime: " <& getPrime);
   end func;