51433: Handle TransactionBacklog events in RsrAsyncMournHandler.

Author: kurtkilpelags

src/RemoteServiceReplication-GemStone/RsrAsyncMournHandler.class.st

@@ -58,22 +58,25 @@ RsrAsyncMournHandler >> process [
 	^process
 ]
 
-{ #category : 'other' }
+{ #category : 'lifecycle' }
 RsrAsyncMournHandler >> runLoop [
 
 	[[self isActive]
 		whileTrue:
 			[[notifier readNotification]
-				on: GcFinalizeNotification
-				do: [:ex | ex _finalizeEphemerons]]]
+				onException: { GcFinalizeNotification. TransactionBacklog. }
+				do: {
+					[:ex | ex _finalizeEphemerons].
+					[:ex | System abortTransaction].
+				}]]
 		on: SocketError
 		do: [:ex | ex return]
 ]
 
 { #category : 'lifecycle' }
 RsrAsyncMournHandler >> start [
 
-	[notifier := GsSignalingSocket newForAsyncExceptions: {GcFinalizeNotification }.
+	[notifier := GsSignalingSocket newForAsyncExceptions: {GcFinalizeNotification. TransactionBacklog. }.
 	notifier interrupting: true]
 		on: SocketError
 		do: