another error-message fix

original commit: 2146a020c05bb0cdc0fa9427e321ef7840e959da
2011-07-31 05:09:49 -06:00 · 2011-07-31 05:09:49 -06:00 · 543bfedad2
commit 543bfedad2
parent 61d3c80212
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/port.rkt
+++ b/collects/mzlib/port.rkt
@ -1468,7 +1468,7 @@
                [name (object-name port)]
                [convert-newlines-to #f]
                [decode-error (lambda (msg port)
-                                (error 'reencode-input-port
+                                (error 'reencode-output-port
                                       (format "~a: ~~e" msg)
                                       port))])
    (let ([c (bytes-open-converter "UTF-8" encoding)]