diff --git a/LSL2/STPROC/TRANSACTION_SERVICES.txt b/LSL2/STPROC/TRANSACTION_SERVICES.txt
index 52beb14..e05bea8 100644
--- a/LSL2/STPROC/TRANSACTION_SERVICES.txt
+++ b/LSL2/STPROC/TRANSACTION_SERVICES.txt
@@ -27,6 +27,7 @@ Compile function Transaction_Services(@Service, @Params)
 $Insert SERVICE_SETUP
 $Insert APP_INSERTS
 $Insert TRANSACTION_QUEUE_EQUATES
+$Insert RLIST_EQUATES
 
 EQU COMMA$ to ','
 
@@ -153,13 +154,16 @@ Service ProcessTransactionQueue()
 		
 		GoSub ClearCursors
 		
-		Select 'TRANSACTION_QUEUE' by 'TRANSACTION_DTM' setting Cursor then
+		Query   = 'SELECT TRANSACTION_QUEUE BY TRANSACTION_DTM'
+		RList(Query, TARGET_ACTIVELIST$, '', '', '')
+		ErrCode = ''
+		If Not(Get_Status(ErrCode)) then
 			EOF = False$
 			Loop
 				LogData 	= ''
 				DeleteTrans = False$
 				ErrorMsg    = ''
-				ReadNext TransId using Cursor By At else EOF = True$
+				ReadNext TransId else EOF = True$
 			Until EOF
 				TransRec = Database_Services('ReadDataRow', 'TRANSACTION_QUEUE', TransId)
 				If Error_Services('NoError') then
@@ -224,8 +228,9 @@ Service ProcessTransactionQueue()
 					LogData<2> = 'Failed to process transaction ':TransId:'. Error message: ':ErrorMsg
 				end
 				Logging_Services('AppendLog', objQueueLog, LogData, @RM, @FM)
-			Repeat
+			Repeat			
 		end
+
 		Unlock hSysLists, ServiceKeyID else Null
 	end