[R] [Q] R equivalent for Splus get.message()

[Paul Roebuck]

I'm trying to get a translation of some Splus code going.
My problem is with the S-plus get.message() function not
existing in R. Is there a replacement or alternative?

ErrorHandler.func<-function()
{
    cat("app.terminated\n");
    cat(paste("err.fatal",get.message(),"\n",sep=""));
    dump.calls();
}
options(error=ErrorHandler.func)

----------------------------------------------------------
SIGSIG -- signature too long (core dumped)