diff --git a/sources/Rowan UI Base.pax b/sources/Rowan UI Base.pax index 3d566fb2..376cbffc 100644 --- a/sources/Rowan UI Base.pax +++ b/sources/Rowan UI Base.pax @@ -1097,7 +1097,7 @@ You must abort your transaction before retrying the operation. Would you like to abort now?') ifTrue: [JadePresenter abortTransactionInSession: self]]] ensure: [self enableSignaledAbortError "must reenable each time a sig abort error is received"]. - error abort "Shutdown this process. An abort happened or needs to happen"! + Processor activeProcess terminate "this should run exception handlers" ! hasServer @@ -2159,10 +2159,13 @@ autoCommitExecutionString basicBeginTransaction | answeringService | - answeringService := RowanAnsweringService new. - answeringService exec: 'System beginTransaction' session: gciSession. - self setInTransaction: answeringService session: gciSession. - JadePresenter trigger: #abortedTransaction! + + [answeringService := RowanAnsweringService new. + answeringService exec: 'System beginTransaction' session: gciSession] + ensure: + [self setInTransaction: answeringService session: gciSession. + JadePresenter trigger: #abortedTransaction. + self inTransaction ifFalse: [MessageBox notify: 'Begin transaction failed. Please try again.']]! basicCloneProject: path root: root | service |