kor::captureAll gives an incorrect error message "Error in ... : argument "calls" is missing, with no default"

[k-barton]

kor::captureAll outputs error message from restartError instead of the original one. This happens because no sys.calls() are passed to it (when doTraceback=TRUE).

Example:

:> test <- function(foo) `{
       on.exit(return(foo))
       stop("test error")
   }
   test(1)

Error in fun(quote(1)) : argument "calls" is missing, with no default

while the actual message should be:
Error: test error

[k-barton]

Another test:

test <- function(foo) {
    on.exit({
        message("message on.exit")
        warning("test warn on.exit")
        return(foo)
    })
    print("pre warning")
    warning("test warn 1")
    warning("test warn 2")
    print("after warning")
    stop("test error")
    print(666)
}