diff --git a/locale.c b/locale.c
index 59be4abf28c1..8f89e11628d1 100644
--- a/locale.c
+++ b/locale.c
@@ -6659,6 +6659,9 @@ S_my_langinfo_i(pTHX_
         *utf8ness = is_utf8;
     }
 
+    DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+                           "Leaving my_langinfo item=%ld, using locale %s\n",
+                           (long) item, locale));
     return retval;
 
 #  endif    /* All the implementations of my_langinfo() */