[plt-scheme] bug with callcc?

[Wolfgang De Meuter]

Hello,

I think the following code should produce an infinite loop.

(begin
   (define k '())
   (* 5 (call-with-current-continuation
           (lambda (cont)
             (set! k cont)
             2)))
   (k 3))

In R6RS is does, but in PrettyBig it produces 15. A bug?