diff --git a/LSL2/STPROC/REACTOR_SERVICES.txt b/LSL2/STPROC/REACTOR_SERVICES.txt
index 425fa98..52c2b6d 100644
--- a/LSL2/STPROC/REACTOR_SERVICES.txt
+++ b/LSL2/STPROC/REACTOR_SERVICES.txt
@@ -3763,7 +3763,9 @@ Service UpdateReactorIQSViolations()
 								ReactorRec<REACTOR_IQS_ALARM_TEST$> = ''
 								// WriteDataRow will clear the lock as long as "IgnoreAllLocks" is false
 								Database_Services('WriteDataRow', 'REACTOR', ReactNo, ReactorRec, True$, False$, False$)								
-							end							
+							end	else
+								Database_Services('ReleaseKeyIDLock', 'REACTOR', ReactNo)
+							end
 						end
 					end					
 				end