geterrorstr(format = 1)
{
        local errnum, errmes, errtype;

        (errnum, errmes, errtype) = geterrorinfo();

        if (format > 0)
        {
                errmes = strrep(errmes, strescape("\n\n"), strescape("\n"));
        }

        return(errmes);
}