[racket] (build-vector) segfault

typing the following code in racket generates a segfault in osx 10.5.8. 
i believe it's a bug.

Welcome to Racket v5.0.1.
 > (define (v) (build-vector (vector-length 10) add1))
 > (v)
Seg fault (internal error) at 0x15
Bus error

without the define it returns an error as expected:
 > (build-vector (vector-length 10) add1)
vector-length: expects argument of type <vector>; given 10

best,
gabor