diff --git a/locale.c b/locale.c
index 4b41d0666e84..e3c6bcfa2fdb 100644
--- a/locale.c
+++ b/locale.c
@@ -6554,13 +6554,13 @@ Perl_my_strerror(pTHX_ const int errnum)
 
     /* This function is trivial without threads. */
     if (within_locale_scope) {
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
     }
     else {
         const char * save_locale = savepv(querylocale_c(LC_MESSAGES));
 
         void_setlocale_c(LC_MESSAGES, "C");
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
         void_setlocale_c(LC_MESSAGES, save_locale);
         Safefree(save_locale);
     }
@@ -6578,7 +6578,7 @@ Perl_my_strerror(pTHX_ const int errnum)
 #    ifdef HAS_STRERROR_R
 
     if (within_locale_scope) {
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
     }
     else {
         errstr = savepv(strerror_l(errnum, PL_C_locale_obj));