diff --git a/info/findsubj.pl b/info/findsubj.pl
index 751713bf..be2a8be2 100644
--- a/info/findsubj.pl
+++ b/info/findsubj.pl
@@ -199,6 +199,6 @@ sub parse_see_also {
 sub error {
     my ($error) = @_;
 
-    print STDERR "info.pl:$filename:$.: $error\n";
+    print STDERR "findsubj.pl:$filename:$.: $error\n";
     exit 1;
 }
diff --git a/info/mksubj.pl b/info/mksubj.pl
index 72272b67..351ec5b1 100644
--- a/info/mksubj.pl
+++ b/info/mksubj.pl
@@ -147,6 +147,6 @@ sub parse_file {
 sub error {
     my ($error) = @_;
 
-    print STDERR "info.pl:$filename:$.: $error\n";
+    print STDERR "mksubj.pl:$filename:$.: $error\n";
     exit 1;
 }