diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index a7ad77f8292fb765cfea82dcd4155ca4e77f3617..9c37b36183117c6230f05ad88918c87ede76a68b 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -21,7 +21,7 @@ obsrv <- shiny::observe
 obsrv_e <- shiny::observeEvent
 vols <- shinyFiles::getVolumes
 vol_f <- vols()
-volumes <- shinyFiles::getVolumes()
+volumes <- function() c(wd=getwd(), shinyFiles::getVolumes()())
 validate1 <- function(expr,msg) shiny::validate(need(expr,msg))