sys.on.exit not working (PR#7665)

Full_Name: Mark Bravington
Version: 2.0.1
OS: Windows XP
Submission from: (NULL) (140.79.22.104)


'sys.on.exit()' doesn't seem to be working, since R1.7.1 at least:

soe.test <- function() { 
  on.exit( cat( 'In exit code\n'))
  str( sys.on.exit()) # should display "language..." I think
  12 
}

(A similar bug was apparently fixed for version 0.65!)