diff --git a/collects/mzlib/port.rkt b/collects/mzlib/port.rkt
index 831d9dbfa6..7af86442f9 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)]
diff --git a/collects/tests/racket/portlib.rktl b/collects/tests/racket/portlib.rktl
index 2823bc51db..c8e79c9d6f 100644
--- a/collects/tests/racket/portlib.rktl
+++ b/collects/tests/racket/portlib.rktl
@@ -726,7 +726,12 @@
  (port->bytes (reencode-input-port (open-input-bytes #"\xFF\xFF") "utf-8"))
  (lambda (exn)
    (regexp-match? #rx"^reencode-input-port:" (exn-message exn))))
-    
+(err/rt-test
+ (let ([o (reencode-output-port (open-output-bytes) "utf-8")])
+   (display #"\xFF\xFF" o) (flush-output o))
+ (lambda (exn)
+   (regexp-match? #rx"^reencode-output-port:" (exn-message exn))))
+
 ;; --------------------------------------------------
 
 (let-values ([(in out) (make-pipe)])