R help - Jan 2004 - Buckley-James censored regression without intercept

Hi, dear R-help, I want to fit a Buckley-James censored regression
without intercept.
The function bj() inside the Design library have to have an intercept,
I try  Surv(y,d)~ 0 + x , or -1+x, or x-1,  none works.

Any suggestions? Is there another BJ() code out there that do not
have to have an intercept? Or may be it is easier to modify the bj()?
I need the estimator only, no need of var estimate or plot.

Thanks.

Mai Zhou
mai at ms.uky.edu