From 543bfedad2bc839adedd820f548bfb1f5e26f10a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 31 Jul 2011 05:09:49 -0600
Subject: [PATCH] another error-message fix

original commit: 2146a020c05bb0cdc0fa9427e321ef7840e959da
---
 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 7af8644..7f32e6b 100644
--- 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)]