--- loncom/interface/printout.pl	2002/08/21 12:49:58	1.19
+++ loncom/interface/printout.pl	2002/08/23 20:02:22	1.20
@@ -29,6 +29,15 @@ use Image::Magick;
 	      $image->Set(page => '+100+200'); 
 	      $status = $image->Write($eps_f);	    
 	      if ($status) {print "  $status  ";}
+              #check is eps exist in prtspool
+              if(not -e $eps_f) {
+		  for (my $i=0;$i<10000;$i++) {
+		      if (-e $eps_f.'.'.$i) {
+			  rename $eps_f.'.'.$i, $eps_f;
+			  last;
+		      }
+		  }
+	      }  
 	  }
       }
       unlink $figfile;