Plazy fails with repeats=1

[Nuno Trocado]

CL-PATTERNS> (next-upto-n (plazy (lambda () 'a)) 10)
(A A A A A A A A A A)
CL-PATTERNS> (next-upto-n (plazy (lambda () 'a) 1) 10)
NIL
CL-PATTERNS> (next-upto-n (plazy (lambda () 'a) 2) 10)
(A A)

I was expecting the second example to yield (A)...

[modula t.]

Fixed, thanks!