--- a/tools/fsh-builddocs	Wed Jul 28 16:41:19 2010 +0100
+++ b/tools/fsh-builddocs	Wed Jul 28 18:30:18 2010 +0100
@@ -104,7 +104,7 @@
   my $spec;
 
   my $currentDir;
-  my $currentFile;
+  my $currentFile = $podListFileName;
   my $currentLine = 0;
   while (my $line = <CPP>) {
     ++$currentLine;