diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm
index 7bae036f52ec..13cb20b3bd9a 100644
--- a/ext/PerlIO-encoding/encoding.pm
+++ b/ext/PerlIO-encoding/encoding.pm
@@ -1,7 +1,7 @@
 package PerlIO::encoding;
 
 use strict;
-our $VERSION = '0.23';
+our $VERSION = '0.24';
 our $DEBUG = 0;
 $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
 
diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs
index 3e4645c0c8a0..ee0836ff730d 100644
--- a/ext/PerlIO-encoding/encoding.xs
+++ b/ext/PerlIO-encoding/encoding.xs
@@ -462,8 +462,8 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
 	    if (!SvPOKp(e->bufsv) || SvTHINKFIRST(e->bufsv))
 		(void)SvPV_force_nolen(e->bufsv);
 	    if ((STDCHAR *)SvPVX(e->bufsv) != e->base.buf) {
-		e->base.ptr = SvEND(e->bufsv);
-		e->base.end = SvPVX(e->bufsv) + (e->base.end-e->base.buf);
+		e->base.ptr = (STDCHAR *)SvEND(e->bufsv);
+		e->base.end = (STDCHAR *)SvPVX(e->bufsv) + (e->base.end-e->base.buf);
 		e->base.buf = (STDCHAR *)SvPVX(e->bufsv);
 	    }
 	    (void)PerlIOEncode_get_base(aTHX_ f);