diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index 36d2097..c5d3fb5 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -136,7 +136,7 @@ sub grades_generate
 	    {
 		open my $xmltrace, "<", "$basedir/$tr_file" or die "$tr_file: $!";
 		binmode $xmltrace;
-		my $trace = Trace->new($xmltrace);
+		my $trace = Trace->new(join '', <$xmltrace>);
 		close $xmltrace;
 
 		log DEBUG, "Fill from file: $tr_file";