Back out last change and pursue a different fix, based on explicitly aborting script execution at times when we don't expect scripts to run

type t

val create : transaction t
val render : t -> signal xbody
val write : t -> string -> transaction unit