diff --git a/LSL2/STPROC/LOT_EVENT_SERVICES.txt b/LSL2/STPROC/LOT_EVENT_SERVICES.txt
index 5b62fda..9fafea3 100644
--- a/LSL2/STPROC/LOT_EVENT_SERVICES.txt
+++ b/LSL2/STPROC/LOT_EVENT_SERVICES.txt
@@ -89,6 +89,7 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
 		end
 	end
 	If RowExists('LOT', LotId) then
+		CurrLotOperation = Lot_Services('GetLotCurrOperationId', LotId)
 		NewEventId = RTI_CreateGUID()
 		If NewEventId NE '' then
 			NewEventSequence = Lot_Event_Services('GetLotEventNextSequence', LotId)
@@ -98,6 +99,7 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
 				NewEventRec<LOT_EVENT_LOT_EVENT_TYPE$>         = EventType
 				NewEventRec<LOT_EVENT_EVENT_DATETIME$>         = EventDatetime
 				NewEventRec<LOT_EVENT_EVENT_NOTE$>             = EventNote
+				NewEventRec<LOT_EVENT_EVENT_OPERATION_ID$>     = CurrLotOperation
 				NewEventRec<LOT_EVENT_EQUIPMENT_ID$>           = EventEquipmentId
 				NewEventRec<LOT_EVENT_EVENT_OPERATOR_ID$>      = OperatorId
 				NewEventRec<LOT_EVENT_SEQUENCE$>               = NewEventSequence
@@ -233,3 +235,4 @@ return
 
 
 
+