From 61d3c80212d1d76191314fea5ebcbea0787f8a8d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Mon, 25 Jul 2011 23:46:16 -0400
Subject: [PATCH] fix error reporting in `reencode-output-port'

Closes PR 12077

original commit: 61f628f2c6cdd5ae355156f6c37b2c458af1e2c3
---
 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 831d9db..7af8644 100644
--- a/collects/mzlib/port.rkt
+++ b/collects/mzlib/port.rkt
@@ -1469,7 +1469,7 @@
                 [convert-newlines-to #f]
                 [decode-error (lambda (msg port)
                                 (error 'reencode-input-port
-                                       (format "~a: ~e" msg)
+                                       (format "~a: ~~e" msg)
                                        port))])
     (let ([c (bytes-open-converter "UTF-8" encoding)]
           [ready-bytes (make-bytes 1024)]