From 4cb01a48b36fefdb04ff3857ecd2a44812bdc86f Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 26 Jan 2010 15:04:51 +0000
Subject: [PATCH] only for programs

svn: r17835
---
 collects/scheme/sandbox.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss
index 2e5fd70321..d958780c51 100644
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@@ -552,7 +552,7 @@
               [_else #f])])
     ;; the actual evaluation happens under the specified limits
     (parameterize ([current-load-relative-directory
-                    (let* ([d (syntax-source program)]
+                    (let* ([d (and (syntax? program) (syntax-source program))]
                            [d (and (path-string? d) (path-only d))])
                       (if (and d (directory-exists? d))
                         d