`entrez.func.91` <-
function(probe){entrez <- eval(parse(text=paste("hgu95av2.PR2EG$\"",probe,"\"",sep=""))); ifelse(is.null(entrez),NA,entrez)}