diff --git a/app.R b/app.R
index b2e303c..1698101 100644
--- a/app.R
+++ b/app.R
@@ -604,7 +604,7 @@ server <- function(input, output, session) {
     
     print('saving xlsx file export tmp/dataset.xlsx')
    
-    zipFile <- zipr(paste0('MESO-', format(Sys.time(), "%m%d_%H%M"), '.zip'), c('tmp/layer1.png', 'tmp/layer2.png', 'tmp/layer3.png', 'tmp/dataset.xlsx'))
+    zipFile <- zipr(paste0('tmp/MESO-', format(Sys.time(), "%m%d_%H%M"), '.zip'), c('tmp/layer1.png', 'tmp/layer2.png', 'tmp/layer3.png', 'tmp/dataset.xlsx'))
     
     print(paste('zip file complete', zipFile))
     
@@ -635,4 +635,4 @@ server <- function(input, output, session) {
   
 }
 
-shinyApp(ui, server)
\ No newline at end of file
+shinyApp(ui, server)