diff --git a/R/getOptionChain.R b/R/getOptionChain.R
index 8b174470..1d7b44ba 100644
--- a/R/getOptionChain.R
+++ b/R/getOptionChain.R
@@ -24,8 +24,8 @@ getOptionChain.yahoo <- function(Symbols, Exp, ...)
     d <- with(x, data.frame(Strike=strike, 
                             Last=lastprice, 
                             Chg=change,
-                            Bid=bid, 
-                            Ask=ask, 
+                            Bid= if("bid" %in% names(x)) {bid} else {NA}, 
+                            Ask= if("ask" %in% names(x)) {ask} else {NA},    
                             Vol= if("volume" %in% names(x)) {volume} else {NA}, 
                             OI= if("openinterest" %in% names(x)) {openinterest} else {NA},
                             LastTradeTime= if("lasttradedate" %in% names(x)) {lasttradedate} else {NA},