"modify.meta.list" <-
function(mlist,useHead="GOID",filters=NULL)
{
  if(!is.list(mlist) || (length(mlist)==0) || !is.character(unlist(mlist)) || is.null(names(mlist)))
      stop("Meta-data must be in the form of a non-empty tagged character list")
  x <- new("MBdataKS")
  x <- addGenes(x,N=length(mlist),IDs=names(mlist))
  x <- getAssoc(x,mlist,useHead,filters)
  mlist <- x@assoc
  names(mlist) <- x@IDs
  return(mlist)
}