infinite recursion problem

hello r-users,
sorry for asking a long question that may not be very relevant for the
list but it's upsetting me and I get no other solution...

I get a function HTMLExport.lm that uses another function called
HTMLExport.list.
My problem is that function HTMLExport.list works fine when used alone
but HTMLExport.lm crashes with the following error :

HTMLExport(iris.lm)

lm(formula = Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width)
Error in names.default(x) : evaluation is nested too deeply: infinite
recursion?

Here is the code of HTMLExport.list :
"HTMLExport.list"<-
function(x, prefix = "", File = "", Align = "left", ...)
{
 xlen <- length(x)
 if(xlen == 0) {
  cat("list()\n")
  return(invisible(x))
 }
 n <- names(x)
 if(is.null(n))
  this <- paste(prefix, "[[", 1:xlen, "]]", sep = "")
 else this <- paste(prefix, "$",names(x), sep = "")
 for(i in 1:xlen) {
  this[i] <- substring(this[i], 2, nchar(this[i]))
  cat(paste("<P ALIGN=", Align,
   "><TABLE BORDER=0><TD BGCOLOR=E4E4E4><FONT FACE=ARIAL><B>",
   this[i], "</TD></TABLE></P>", sep = ""), file = File,
   append = T, sep = "")
  HTMLExport(x[[i]], File = File, prefix = this[i], ...)#here is the
problem according to debug()
 }
 invisible(x)
}


In Splus4 version of these function, the problem had been fixed using
this <- paste(prefix, "$", .C("names_unlex",n,as.integer(xlen))[[1]],
sep = "")
instead of
this <- paste(prefix, "$",names(x), sep = "")
but it can't work within R...

Could someone explain me what happens (even if I have a vague idea)
and/or give me a tip to handle this problem.

Also, I get Splus5.1 (linux mandrake7.0) and can't find a way to use
.C("names_unlex",...), could someone explain me what it does and where
to find the code (if it's not a Splus4 feature?).

thanks a lot,
    Mathieu