fix error reporting in `reencode-output-port'

Closes PR 12077 original commit: 61f628f2c6cdd5ae355156f6c37b2c458af1e2c3
2011-07-25 23:46:16 -04:00 · 2011-07-25 23:46:16 -04:00 · 61d3c80212
commit 61d3c80212
parent 4757e1cc6a
1 changed files with 1 additions and 1 deletions
--- 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)]