diff --git a/perl/Amanda/DB/Catalog.pm b/perl/Amanda/DB/Catalog.pm
index e964a5d875..cc3acd71c1 100644
--- a/perl/Amanda/DB/Catalog.pm
+++ b/perl/Amanda/DB/Catalog.pm
@@ -846,7 +846,7 @@ sub get_parts_and_dumps {
 		my $s = $str;
 		my $b_unit;
 		($secs, $b_unit, $kb, $str) = ($str =~ /^\[sec ([-0-9.]+) (kb|bytes) ([-0-9]+).*\] ?(.*)$/)
-		    or die("'$s'");
+		    or die("logfile '$logfile_dir/$logfile': cannot parse '$s'");
 		if ($b_unit eq 'bytes') {
 		    $bytes = $kb;
 		    $kb /= 1024;