From 0c23c7f9d7878d5fdb590e16d534e7964d6fd6c0 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 17 Jun 2009 05:03:28 +0000
Subject: [PATCH] fix usage of bytes

svn: r15193
---
 collects/at-exp/lang/reader.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/at-exp/lang/reader.ss b/collects/at-exp/lang/reader.ss
index 0c12b03a75..98d6c77cf5 100644
--- a/collects/at-exp/lang/reader.ss
+++ b/collects/at-exp/lang/reader.ss
@@ -13,7 +13,7 @@
   (define (bad str eof?)
     ((if eof? raise-read-eof-error raise-read-error)
      (let ([msg "bad language path following at-exp"])
-       (if str (string-append msg ": " str) msg))
+       (if str (format "~a: ~a" msg str) msg))
      src line col pos
      (let-values ([(line col pos2) (port-next-location in)])
        (and pos pos2 (- pos2 pos)))))