--- loncom/interface/printout.pl	2005/07/22 11:42:50	1.85
+++ loncom/interface/printout.pl	2005/07/25 10:27:51	1.86
@@ -262,7 +262,9 @@ END
       @texfile=();
       for (my $i=1;$i<=$number_of_files;$i++) {
 	  my $new_texfile=$texfile;
-	  $new_texfile=~s/\.tex/_$i\.tex/;
+	  $new_texfile=~s/\.tex//;
+	  $new_texfile = sprintf("%s_%03d.tex", $new_texfile,$i);
+	  print "<BR>Produced file: $new_texfile";
 	  push @texfile,$new_texfile;
       } 
   }