bug in `display'

[Dr. M. Luedde]

(sorry, this went to the wrong address first) 

Hi Per, 

#|kawa:1|# (define (test-display)
  (let loop ( (x '()) (n 200) )
    (if (zero? n) (display x)
	(loop (cons n (list x)) (- n 1)))))
#|kawa:2|# (test-display)

leads to 

java.lang.ArrayIndexOutOfBoundsException

with JDK version 1.3.1_02.

Best regards, Mirko.