(define ipc:run-active-label
(lambda (id . args)
(let ((k (vector-ref *ipc:active-labels* id)))
(if (null? k)
(println "Error: bad process? Have you given your local process a name on the remote host?"))
(vector-set! *ipc:active-labels* id '())
(apply k args))))