diff --git a/R/putEpps.R b/R/putEpps.R
index 5ae6c8d..b340075 100644
--- a/R/putEpps.R
+++ b/R/putEpps.R
@@ -34,5 +34,5 @@ putEpps <- function(char.fn,strikeprice,eval.time,expiry.time,rate,...,int.bound
       strikeprice * 
       (.5 - integrate(zhi,int.bounds[1],int.bounds[2],strikeprice,eval.time,expiry.time,rate,...)$value / (2*pi))
   }
-  mclapply(as.vector(strikeprice),integrate.K,zhi,int.bounds,eval.time,expiry.time,rate,...)
-}
\ No newline at end of file
+  mclapply(as.list(strikeprice),integrate.K,zhi,int.bounds,eval.time,expiry.time,rate,...)
+}