diff --git a/singlecell/resources/chunks/Functions.R b/singlecell/resources/chunks/Functions.R
index e37fb605e..90d53c9db 100644
--- a/singlecell/resources/chunks/Functions.R
+++ b/singlecell/resources/chunks/Functions.R
@@ -107,7 +107,7 @@ saveData <- function(seuratObj, datasetId) {
     # Write cell barcodes and metadata:
     metaDf <- seuratObj@meta.data
     metaDf$cellbarcode <- colnames(seuratObj)
-    write.table(metaDf, file = metaFile, quote = T, row.names = F, sep = ',', col.names = T)
+    write.table(metaDf, file = gzfile(metaFile), quote = T, row.names = F, sep = ',', col.names = T)
     write.table(data.frame(CellBarcode = colnames(seuratObj)), file = barcodeFile, quote = F, row.names = F, sep = ',', col.names = F)
 }