Index: Res/VertalingAbstract.cls.xml
===================================================================
diff -u -r29059 -r29337
--- Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 29059)
+++ Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 29337)
@@ -205,6 +205,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	New EventData,Event
 	Set EventData = ##class(Res.event.VertalingEventData).%New(..GroepGetObjectId())
 	#dim Event As TECH.PubSub.Event
 	If (insert)