1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 9b61ceed8b..6618fa698b 100644
--- a/toke.c
+++ b/toke.c
@@ -12495,7 +12495,7 @@ Perl_yyerror(pTHX_ const char *s)
 	if (yychar < 32)
 	    Perl_sv_catpvf(aTHX_ where_sv, "^%c", toCTRL(yychar));
 	else if (isPRINT_LC(yychar)) {
-	    const unsigned char string = (unsigned char) yychar;
+	    const char string = yychar;
 	    sv_catpvn(where_sv, &string, 1);
 	}
 	else