From 4757e1cc6abda25619f28c765e49492939729572 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 25 Jul 2011 13:11:05 -0400
Subject: [PATCH] fix error reporting in `reencode-input-port'

Closes PR 12076

original commit: e01ee43300a163bddd89240f75d3198cd9d2aa8d
---
 collects/mzlib/port.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/port.rkt b/collects/mzlib/port.rkt
index f87d0c9..831d9db 100644
--- a/collects/mzlib/port.rkt
+++ b/collects/mzlib/port.rkt
@@ -1332,7 +1332,7 @@
                 [newline-convert? #f]
                 [decode-error (lambda (msg port)
                                 (error 'reencode-input-port
-                                       (format "~a: ~e" msg)
+                                       (format "~a: ~~e" msg)
                                        port))])
     (let ([c (let ([c (bytes-open-converter encoding "UTF-8")])
                (if newline-convert? (mcons c #f) c))]