diff --git a/R/pcaPlot.R b/R/pcaPlot.R
index 67a4a8226163584fc01e6956c9276f2db27893d2..033fd2b70b94493bcb113926db868d93131bba67 100644
--- a/R/pcaPlot.R
+++ b/R/pcaPlot.R
@@ -65,11 +65,11 @@ pcaPlot <- function(es, columns=c(), rows=c(), c1, c2, size="", colour="", label
     g <- g + geom_text_repel(aes_string(label=label))
     
   }
-  f <- tempfile(pattern="plot",tmpdir="~/morpheus.js/tmp",fileext=".svg")
+  f <- tempfile(pattern="plot",tmpdir=getwd(),fileext=".svg")
   ggsave(f, g)
   
   
   
   print(capture.output(str(g)))
-  return(basename(f))
+  return(f)
 }