From d9b4e619ebe61b28a36a1914d50c05e340dd7c0f Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 12 Nov 2008 05:37:52 +0000
Subject: [PATCH] add quotes

svn: r12404
---
 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 b377f025b5..048a8d0234 100644
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@@ -130,7 +130,7 @@
                             (and (perm<=? needed (car perm))
                                  (regexp-match (cadr perm) bpath)))
                           (sandbox-path-permissions))
-             (error what "~a access denied for ~a"
+             (error what "`~a' access denied for ~a"
                     (apply string-append
                            (add-between (map symbol->string modes) "+"))
                     path)))))