diff --git a/LSL2/STPROC/SCHEDULE_SERVICES.txt b/LSL2/STPROC/SCHEDULE_SERVICES.txt
index 3976ae1..8cfbd11 100644
--- a/LSL2/STPROC/SCHEDULE_SERVICES.txt
+++ b/LSL2/STPROC/SCHEDULE_SERVICES.txt
@@ -2075,7 +2075,7 @@ Service AdjustScheduleEvents(ReactNo)
 			Schedule_Services('LogActivity', ReactNo, LogData)
 			
 		end
-		Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
+		Schedule_Services('SendRefreshMessage')
 		
 		Unlock hSysLists, ServiceKeyID:'*':ReactNo else Null
 	end
@@ -3347,6 +3347,21 @@ Service NotifySupervisorsIfSameDayChange(NewRec, OrigRec)
 end service
 
 
+Service SendRefreshMessage()
+	
+	SendUpdate     = True$
+	LastRefreshDtm = Xlate('APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', '', 'X')
+	If LastRefreshDtm NE '' then 
+		ElapMinutes = SRP_Datetime('MinuteSpan', LastRefreshDtm, Datetime(), True$)
+		SendUpdate  = (ElapMinutes GT 5)
+	end
+	If SendUpdate then
+		Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
+		Database_Services('WriteDataRow', 'APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', Datetime(), True$, False$, True$)
+	end
+	
+end service
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 // Internal GoSubs
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////