can't load a sandbox in a sandbox

[sellout]

Writing

(load "library/sandbox")
{sandbox (list (par (load "library/sandbox")
                    {sandbox (list {rc} {rc})}
               {rc})}

works just fine. But if you create a file called nested-sandbox.kiln with the contents

(load "library/sandbox")
{sandbox (list {rc} {rc})}

and then do

{sandbox (list (load "nested-sandbox") {rc})}

the inner sandbox message (defined in the file) ends up using the restricted name created in the trigger for the outer sandbox, and therefore never matches its trigger.

This is currently problematic for the test framework.