"get.go.map" <-
function(tms,organism)
{
	if(!is.character(tms))
		stop("Invalid terms list")
	if(organism=="yeast") {
		require(YEAST,quietly=TRUE)
		obs <- ls(env=YEASTGO)
		go.list <- modify.meta.list(as.list(YEASTGO))
	}
	else if(organism=="human") {
		require(humanLLMappings,quietly=TRUE)
		obs <- ls(env=humanLLMappingsLL2GO)
		go.list <- as.list(humanLLMappingsLL2GO)
	}
	else if(organism=="mouse") {
		require(mouseLLMappings,quietly=TRUE)
		obs <- ls(env=mouseLLMappingsLL2GO)
		go.list <- as.list(mouseLLMappingsLL2GO)
	}
	else if(organism=="rat") {
		require(ratLLMappings,quietly=TRUE)
		obs <- ls(env=ratLLMappingsLL2GO)
		go.list <- as.list(ratLLMappingsLL2GO)
	}
	else
		stop("Invalid organism (must be one of 'yeast','human','mouse', or 'rat')")
	return(otkvList2namedSparse(obs,tms,go.list))
}