--- a/uh_parser/RaptorWarning.pm	Fri Apr 09 17:38:33 2010 +0100
+++ b/uh_parser/RaptorWarning.pm	Fri Apr 09 18:03:22 2010 +0100
@@ -151,6 +151,8 @@
 	{
 		$filename = "$::raptorbitsdir/raptor_warning.txt";
 		$filename = "$::raptorbitsdir/$package.txt" if ($package);
+		my $filenamewnopath = "raptor_warning.txt";
+		$filenamewnopath = "$package.txt" if ($package);
 		
 		if (!-f$filename)
 		{
@@ -159,7 +161,7 @@
 			close(FILE);
 		}
 		
-		my $dumped = process($characters, $::current_log_file, $raptor_warning_info->{bldinf}, '', '', '', "$package.txt");
+		my $dumped = process($characters, $::current_log_file, $raptor_warning_info->{bldinf}, '', '', '', $filenamewnopath);
 		
 		if ($dumped)
 		{