[racket] Places crashing DrRacket

Dear list members,

This minimal code snippet crashes DrRacket.
----------------------
#lang racket
(define test-vector #(0 1 2 3 4 5 6 7 8 9))
(define (test-function vectr) (apply + (vector->list (vector-map sqrt
vectr))))

(define place1
(place ch (place-channel-put ch (test-function (place-channel-get ch)))))
------------------------------------

When run in DrRacket (windows Vista Pentium dual core) it executes, the
prompt appears in the interactions window and then about 5 or 10 seconds
later I get a "program terminated .... ran out of memory" DrRacket popup
window.

Thanks,
Harry Spier
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20130313/1cf9a277/attachment.html>