@@ -483,7 +483,7 @@ prepCellSummary <- function(cells, spatialCoords, cellType, imageID, region = NU

     cellSummary <- spicyR::cellSummary(data, bind = bind)

   }

-  if (is(cells, "SingleCellExperiment")) {

+  if (class(cells) == "SingleCellExperiment") {

     cells <- colData(cells)

     data <- SegmentedCells(cells, 

                             spatialCoords = spatialCoords,

@@ -493,7 +493,7 @@ prepCellSummary <- function(cells, spatialCoords, cellType, imageID, region = NU

     cellSummary <- spicyR::cellSummary(data, bind = bind)   

   }

-  if (is(cells, "SpatialExperiment")) {

+  if (class(cells) == "SpatialExperiment") {

     cells <- cbind(colData(cells), spatialCoords(cells))

     data <- SegmentedCells(cells, 

                             spatialCoords = spatialCoords,