diff --git a/R/get_linear_predictors.R b/R/get_linear_predictors.R
index b8942b72..ba7e664a 100644
--- a/R/get_linear_predictors.R
+++ b/R/get_linear_predictors.R
@@ -82,9 +82,9 @@ trend_Xp_matrix = function(newdata, trend_map, series = 'all',
 
   trend_test <- newdata
   trend_indicators <- vector(length = length(trend_test$time))
-  for(i in 1:length(trend_test$time)){
-    trend_indicators[i] <- trend_map$trend[which(trend_map$series ==
-                                                   trend_test$series[i])]
+  for(i in 1:length(trend_test$series)){
+    trend_indicators[i] <- trend_map$trend[which(as.character(trend_map$series) ==
+                                                   as.character(trend_test$series[i]))]
   }
   trend_indicators <- as.factor(paste0('trend', trend_indicators))
   trend_test$series <- trend_indicators
diff --git a/src/mvgam.dll b/src/mvgam.dll
index 643fb1d5..d049f54d 100644
Binary files a/src/mvgam.dll and b/src/mvgam.dll differ
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
index 0925395a..7a644c06 100644
Binary files a/tests/testthat/Rplots.pdf and b/tests/testthat/Rplots.pdf differ