Index: TECH/Events/EventHandler.cls.xml
===================================================================
diff -u -r1409 -r2550
--- TECH/Events/EventHandler.cls.xml	(.../EventHandler.cls.xml)	(revision 1409)
+++ TECH/Events/EventHandler.cls.xml	(.../EventHandler.cls.xml)	(revision 2550)
@@ -24,8 +24,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set MethodDefinition = ##class(%Dictionary.MethodDefinition).%OpenId(..%ClassName(1)_"||StartVerwerking")
-	#dim EventType As %String = ##class(TECH.StringUtils).GetLastPart($piece(MethodDefinition.FormalSpec,":",2),".")
-	quit EventType
+	quit $classmethod($piece(MethodDefinition.FormalSpec,":",2),"Type")
 ]]></Implementation>
 </Method>
 </Class>