--- loncom/interface/printout.pl	2005/07/05 13:31:27	1.84
+++ loncom/interface/printout.pl	2005/07/25 10:43:29	1.87
@@ -210,7 +210,8 @@ END
 	      # print "$status_statement\n";
 	      $not_eps=~s|\/\.\/|\/|g;
 	      my $eps_f = $not_eps;
-	      $eps_f =~ s/\.[^.]*$/\.eps/i;
+	      # $eps_f =~ s/\.[^.]*$/\.eps/i;
+	      $eps_f .= '.eps';	# Just append the eps ext.
 	      if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
                   $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
 		  $eps_f = '/home/httpd/prtspool/'.$eps_f;
@@ -261,7 +262,8 @@ 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);
 	  push @texfile,$new_texfile;
       } 
   }