diff --git a/lib/locale.t b/lib/locale.t
index 3933f5c027e9..b39bac443262 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -108,7 +108,7 @@ my $dumper = Dumpvalue->new(
 
 sub debug {
   return unless $debug;
-  my($mess) = join "", '# ', @_;
+  my($mess) = join "", '# ', __FILE__, ": ", @_;
   chomp $mess;
   print STDERR $dumper->stringify($mess,1), "\n";
 }