traceback <-
function() unlist(.Traceback)

