diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index a3f48db..9fb0b2c 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -73,6 +73,8 @@ sub grades_new_bonus
 
 	my @lines = ($args->{files}{$kfile} =~ tr/\n//);
 
+	log TRACE, $args->{files}{$kfile};
+
 	my $value = 1;
 	# Looking for a global value 
 	if ($lines[0] =~ /^(\d+)$/) {