diff --git a/R-package/NAMESPACE b/R-package/NAMESPACE
index f09d5b907..f8b409724 100644
--- a/R-package/NAMESPACE
+++ b/R-package/NAMESPACE
@@ -8,5 +8,4 @@ export(xgb.train)
 export(xgb.save)
 export(xgb.load)
 export(xgb.dump)
-export(xgb.Booster)
 export(xgb.DMatrix.save)
diff --git a/demo/kaggle-higgs/higgs-pred.R b/demo/kaggle-higgs/higgs-pred.R
index 62076470d..5136223b9 100644
--- a/demo/kaggle-higgs/higgs-pred.R
+++ b/demo/kaggle-higgs/higgs-pred.R
@@ -9,7 +9,7 @@ data <- as.matrix(dtest[2:31])
 idx <- dtest[[1]]
 
 xgmat <- xgb.DMatrix(data, missing = -999.0)
-bst <- xgb.Booster(params=list("nthread"=16), modelfile=modelfile)
+bst <- xgb.load(modelfile=modelfile)
 ypred <- predict(bst, xgmat)
 
 rorder <- rank(ypred, ties.method="first")