1 files changed, 2 insertions, 2 deletions
diff --git a/tools/progdoc b/tools/progdoc
index ef44d3aa..495d9287 100755
--- a/tools/progdoc
+++ b/tools/progdoc
@@ -20,8 +20,8 @@ sub include {
 
 sub process {
   my $dir = shift @_;
-  print "$dir/Doc\n";
-  open(IN, "$srcdir/$dir/Doc") || die "Unable to read $dir/Doc";
+  print "$dir/progdoc\n";
+  open(IN, "$srcdir/$dir/progdoc") || die "Unable to read $dir/progdoc";
   my @docfile = <IN>;
   close IN;
   foreach $_ (@docfile) {