@@ -1,6 +1,6 @@

 Package: Biobase

 Title: Biobase: Base functions for Bioconductor

-Version: 2.33.3

+Version: 2.33.4

 Author: R. Gentleman, V. Carey, M. Morgan, S. Falcon

 Description: Functions that are needed by many other packages or which

         replace R functions.

@@ -37,7 +37,7 @@ setMethod("initialize", "ExpressionSet",

     dimConflict <- function(dimNames, okNames, dim) {

         nm <- lapply(dimNames, "[[", dim)

         isConflict <- !sapply(nm, function(x, y) {

-            is.null(x) || all.equal(x, y, check.attr=FALSE)

+            is.null(x) || isTRUE(all.equal(x, y, check.attr=FALSE))

         }, okNames[[dim]])

         isNamed <- sapply(lapply(nm, names), length) > 0

         isNull <- sapply(nm, is.null)

@@ -446,7 +446,7 @@ assayDataElement <- function(object, elt) assayData(object)[[elt]]

     if (!is.null(value)) {

         dimvalue <- dim(value)

         dimobj <- dim(obj)[seq_along(dimvalue)]

-        if (!identical(unname(dimvalue), unname(dimobj)))

+        if (!isTRUE(all.equal(unname(dimvalue), unname(dimobj))))

             stop("object and replacement value have different dimensions")

     }