diff --git a/R-package/demo/basic_walkthrough.R b/R-package/demo/basic_walkthrough.R
index 25dd56612..c00765f58 100644
--- a/R-package/demo/basic_walkthrough.R
+++ b/R-package/demo/basic_walkthrough.R
@@ -62,7 +62,7 @@ print(paste("sum(abs(pred2-pred))=", sum(abs(pred2-pred))))
 raw = xgb.save.raw(bst)
 # load binary model to R
 bst3 <- xgb.load(raw)
-pred3 <- predict(bst2, test$data)
+pred3 <- predict(bst3, test$data)
 # pred2 should be identical to pred
 print(paste("sum(abs(pred3-pred))=", sum(abs(pred2-pred))))