1 files changed, 3 insertions, 0 deletions
diff --git a/doio.c b/doio.c
index 2f78bc9509..52dfd6db7d 100644
--- a/doio.c
+++ b/doio.c
@@ -1186,6 +1186,9 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 	}
 	/* FALL THROUGH */
     default:
+	/* XXX Fix this when the I/O disciplines arrive. XXX */
+	if (DO_UTF8(sv))
+	    sv_utf8_downgrade(sv, FALSE);
 	tmps = SvPV(sv, len);
 	break;
     }