Error in running IdentifyFailures

[polymerase2010]

In IdentifyFailures.R，Somtimes have error "Error in `[.default`(exons$Custom.Exon, a) : invalid subscript type 'list'  "

I fount the reason: "a" is a list, exons$Custom[a] can not return values from a list.
Can you fix it ?

151 Brca<-which(colSums(brca)!=0)
152
153 a<-apply(brca[,Brca,drop=F],2,which)
154
155 Clinical_Numbering=rep("NA",length(Exon))
156
157 Clinical_Numbering[paste(Exon)%in%row.names(failed.calls[Brca,])] = exons$Custom[a]

[buch1019]

I also faced the same problem. I don't know how to fix it. @polymerase2010 Is this problem solved successfully?