diff --git a/lib/Simba/CA.pm b/lib/Simba/CA.pm
index e0bf604..e8bd49c 100644
--- a/lib/Simba/CA.pm
+++ b/lib/Simba/CA.pm
@@ -597,6 +597,10 @@ sub store_file {
     if ($header =~ /^data (.*)/) {
         my $f2 = $self->parse($1);
         my $backup_filename = "$self->{this_backup}/$f->{name}";
+        # XXX - should not die unconditionally. At least some errors
+        # (e.g. "File name too long") are almost certainly specific to
+        # single files. We should report the error and continue with the
+        # next file.
         open(my $file_bfd, '>:raw', $backup_filename) or die "cannot open backup file $backup_filename: $!";
         my $size = $f2->{s};
         my $err;