@@ -562,8 +562,8 @@ AnnotationTrack <- function(range=NULL, start=NULL, end=NULL, width=NULL, featur

                         args=list(feature=feature, group=group, id=id, strand=strand),

                         defaults=list(feature="unknown", group=group, id=id, strand=strand, density=1),

                         chromosome=chromosome)

-    genome <- if(missing(genome)) .getGenomeFromGRange(range, "NA") else genome

-    genome(range) <- unname(genome)

+    genome <- if(missing(genome)) .getGenomeFromGRange(range, "NA") else genome[1]

+    suppressWarnings(genome(range) <- unname(genome))

     if(missing(chromosome) || is.null(chromosome))

         chromosome <- if(length(range)>0) .chrName(as.character(seqnames(range)[1])) else "chrNA"

     ## And finally the object instantiation, we have to distinguis between DetailsAnnotationTracks and normal ones

@@ -745,8 +745,8 @@ GeneRegionTrack <- function(range=NULL, rstarts=NULL, rends=NULL, rwidths=NULL,

         start <- if(!length(range)) NULL else min(IRanges::start(range))

     if(is.null(end))

         end <- if(!length(range)) NULL else max(IRanges::end(range))

-    genome <- if(missing(genome)) .getGenomeFromGRange(range, "NA") else genome

-    genome(range) <- unname(genome)

+    genome <- if(missing(genome)) .getGenomeFromGRange(range, "NA") else genome[1]

+    suppressWarnings(genome(range) <- unname(genome))

     if(missing(chromosome) || is.null(chromosome))

         chromosome <- if(length(range)>0) .chrName(as.character(seqnames(range)[1])) else "chrNA"

     new("GeneRegionTrack", start=start, end=end, chromosome=chromosome[1], range=range,

@@ -851,7 +851,7 @@ setMethod("initialize", "BiomartGeneRegionTrack", function(.Object, start, end,

                          gene=as.character(ens$gene_id), exon=as.character(ens$exon_id),

                          transcript=as.character(ens$transcript_id), symbol=as.character(ens$symbol),

                          rank=as.numeric(ens$rank))

-        genome(range) <- unname(list(...)$genome[1])

+        suppressWarnings(genome(range) <- unname(list(...)$genome[1]))

     }

     if(length(range)==0)

         .Object <- setPar(.Object, "size", 0, interactive=FALSE)

@@ -1321,7 +1321,7 @@ UcscTrack <- function(track, table=NULL, trackType=c("AnnotationTrack", "GeneReg

     if(missing(to))

         to <- sessionInfo$chrInfo[chromosome]

     gr <- GRanges(ranges=IRanges(start=from, end=to), seqnames=chromosome)

-    genome(gr) <- unname(genome)

+    suppressWarnings(genome(gr) <- unname(genome))[1]

     query <- ucscTableQuery(sessionInfo$session, sessionInfo$track, gr)

     if(!is.null(table))

     {