[plt-scheme] system function and threads

Hi there,

The following snippet:

#lang scheme

(require scheme/system)
(define t (thread (lambda() (system "pause"))))
(sleep 1)
(kill-thread t)


When run in DrScheme, on XP SP3, works as expected on the first run,
with control returning to the interaction window after 1 sec, but on
the next run will leave DrScheme unresponive.

Any thoughts?

-pp