if (is.null(fileHandleIdList)) fileHandleIdList<-list()

and add test