I should pattern match instead of using that long (car (cdr (car))) line like something along the lines of (let ((which-file-failed (match rest ((_ _ file) file)))) ...). This will need the module (ice-9 match).