[plt-scheme] Bug in process function call?

Hi there,

I have been unable to kill a process started through the "process"
call on Windows XP. The snippet below illustrates. I used notepad as
an example but launching mzscheme itself also presents the same
problem - except that mzscheme does get killed when stdin is closed.

tia,
-pp


#lang scheme


(require scheme/system)

(define l (process "notepad"))
(define stdout (first l))
(define stdin (second l))
(define ex (third l))
(define stderr (fourth l))
(define ctrl (fifth l))

(define (pause)
 (read-line)
 (void))

(ctrl 'status)
(pause)
(printf "Kill~n")
(ctrl 'kill)
(ctrl 'status)
(pause)

(printf "close stdout~n")
(close-input-port stdout)
(ctrl 'status)
(pause)

(printf "close stderr~n")
(close-input-port stderr)
(ctrl 'status)
(pause)

(printf "close stdin~n")
(close-output-port stdin)
(ctrl 'status)
(pause)