"getAssoc.MBdataKS" <-
function(x,mlist,useHead=NULL,filters=NULL,include=NULL,exclude=NULL)
  {
    isValid <- validObject(x)
    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")
	if(length(x@IDs)==0)
		return(x)
    for(nID in 1:length(x@IDs)) {
      ID <- x@IDs[nID]
      expr <- paste("mlist$\"",ID,"\"",sep="")
      meta <- eval(parse(text=expr))
      x@assoc[[nID]] <- get.metadata(meta,useHead,filters,include,exclude)
    }
    return(x)
  }