From 4a89ccea5dbe23f3118dba63764c8b29be2d1b01 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 16 Sep 2010 09:12:42 -0600
Subject: [PATCH] Fixing an annoyance with eli-tester when the error string
 contains ~

---
 collects/tests/eli-tester.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/eli-tester.rkt b/collects/tests/eli-tester.rkt
index 082382e9b0..fb2000e1e8 100644
--- a/collects/tests/eli-tester.rkt
+++ b/collects/tests/eli-tester.rkt
@@ -61,7 +61,7 @@
       #'(let* ([form (failure-format)]
                [prefix (continuation-mark-set->list (current-continuation-marks)
                                                     failure-prefix-mark)])
-          (error 'loc (form prefix 'e fmt arg ...)))))
+          (error 'loc "~a" (form prefix 'e fmt arg ...)))))
   (define (t1 x)
     #`(let ([x (safe #,x)])
         (unless (and (eq? 'values (car x)) (= 2 (length x)) (cadr x))