# TODO: Add comment
# 
# Author: E.Korsching 10.9.2009
###############################################################################

script <- function(){
	#reset diversion of output to a file; corresponding function to report()
	sink()
}