proc sigTrap {} {

	global onStop

	puts stderr "Got Script Stop Interrupt SIGUSR1"

	stopScript

#	If the specific app needs some kind of cleanup after a script
# 	is aborted...
	if {[info exists onStop]} {
		foreach c $onStop {
			uplevel #0 $c
		}
	}

	return -code error -errorcode STOP -errorinfo "Script Interrupted"

}
