DMwR::SMOTE関数のエラーについて教えてください。

以下の処理を実行するとエラーになります。
library( DMwR )

work00 <- data.frame( kbn=c(rep("A",12),rep("B",3)) , tuikavar=c(rnorm(12,20),rnorm(3,2)) )
SMOTE( kbn ~ . , data=work00 , perc.over=200 , perc.under=100 )

>以下にエラー `colnames<-`(`*tmp*`, value = c("kbn", "tuikavar")) :
>'names' 属性 [2] はベクトル [1] の長さと同じでなければなりません

ドキュメントを読みつくしたつもりなのですが、バグとしか思えません。
詳しい方、このバグは既知のものなのでしょうか？それとも回避方法があるのでしょうか？