Reported by Kevin Reid at
http://paste.lisp.org/display/37556
? def makeVat := <unsafe:org.erights.e.elib.vat.makeVat>
# value: <makeVat>
? def tv := makeVat.make("headless", "test")
# value: <Vat test in <runs in test>>
? def r := tv.seed(fn { def o; o })
# value: <Remote Promise>
? r <- __whenMoreResolved(fn x { println(`ding: $x`) })
# value: <Remote Promise>
? tv.orderlyShutdown("biff")
# value: <Promise>
? r
# value: <Remote Promise>