From d2f12f294c23c3b07930de35998f9a7ccf6e7613 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 11 Dec 2007 11:57:35 +0000
Subject: [PATCH] fix expected error message on redefinitions

svn: r7954
---
 collects/tests/mzscheme/sandbox.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/tests/mzscheme/sandbox.ss b/collects/tests/mzscheme/sandbox.ss
index 8433eecdfc..5b2723fe4e 100644
--- a/collects/tests/mzscheme/sandbox.ss
+++ b/collects/tests/mzscheme/sandbox.ss
@@ -211,7 +211,7 @@
    --top--
    (set! ev (make-evaluator 'mzscheme '() '(define x (+ 1 2 3))))
    --eval--
-   (define x (+ x 10)) =err> "cannot change identifier"
+   (define x (+ x 10)) =err> "cannot re-define a constant"
 
    ;; whole program argument
    --top--
@@ -222,7 +222,7 @@
    (set! ev (make-evaluator '(module foo mzscheme (provide x) (define x 1))))
    --eval--
    x => 1
-   (define x 2) =err> "cannot change identifier"
+   (define x 2) =err> "cannot re-define a constant"
 
    ;; limited FS access, allowed for requires
    --top--