add quotes

svn: r12404
2008-11-12 05:37:52 +00:00 · 2008-11-12 05:37:52 +00:00 · d9b4e619eb
commit d9b4e619eb
parent b1aee15004
1 changed files with 1 additions and 1 deletions
--- 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)))))