diff --git a/R/strategy.R b/R/strategy.R
index 72651f7..6f8f902 100644
--- a/R/strategy.R
+++ b/R/strategy.R
@@ -138,10 +138,9 @@ applyStrategy <- function(strategy,
        
        if(isTRUE(debug)) ret[[portfolio]]<-list() # this is slot [[i]] which we will use later
        pobj<-.getPortfolio(portfolio)
-       symbols<- ls(pobj$symbols)
-       sret<-new.env(hash=TRUE)
-       
+       symbols<- ls(pobj$symbols)            
        for (symbol in symbols){
+         sret<-new.env(hash=TRUE)
          if(isTRUE(load.mktdata)){
              if(isTRUE(initBySymbol)) initSymbol(strategy, symbol, ... = ...)
              mktdata <- get(symbol)