diff --git a/R/adam-sma.R b/R/adam-sma.R
index 310662d5..3389af62 100644
--- a/R/adam-sma.R
+++ b/R/adam-sma.R
@@ -144,7 +144,7 @@ sma <- function(y, order=NULL, ic=c("AICc","AIC","BIC","BICc"),
             stop("The provided model is not Simple Moving Average!",call.=FALSE);
         }
         else{
-            order <- model$order;
+            order <- model$orders[1];
         }
     }