Weird function call problem

Hi,

I'm encountering a very odd problem with calls to anova.mlm() from within a
function.

Consider the following code (data.n is a matrix of numeric values):

mlmfit <- lm(data.n ~ 1)
mlmfit0 <- lm(data.n ~ 0)
print(mlmfit)
anova(mlmfit,mlmfit0,test="Spherical")

If I run it just like this from the console, it works just fine. If,
however, I call it from within a function, e.g. using

fct <- function(data.k) {
# same code with data.n replaced by data.k
}
fct(data.n)

It gives me
 

fct(data.n)
   

Call:
lm(formula = data.k ~ 1)

Coefficients:
...

Error in anova.mlmlist(object = mlmfit, mlmfit0, test = "Spherical") :
       Object "mlmfit" not found

What causes mlmfit to "disappear" between two lines? I haven't got the
slightest clue where to look for an answer...

Thank you very much for your help.