Index: TECH/PubSub/impl/EventSubscriptionCollector.cls.xml
===================================================================
diff -u -r1089 -r2554
--- TECH/PubSub/impl/EventSubscriptionCollector.cls.xml	(.../EventSubscriptionCollector.cls.xml)	(revision 1089)
+++ TECH/PubSub/impl/EventSubscriptionCollector.cls.xml	(.../EventSubscriptionCollector.cls.xml)	(revision 2554)
@@ -57,7 +57,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	set Detail = ##class(%GlobalCharacterStream).%New()
-	do Detail.WriteLine("Event : "_Event.%ClassName(1))
+	do Detail.WriteLine("Event : "_Event.Type)
+	do Detail.WriteLine("Event classname : "_Event.%Classname(1))
 	do Detail.WriteLine("Status : "_$$ParseStatus^vhLib(Status))
 	do ..Logger.ErrorMail("Error bij het ophalen van de subscriptions",Detail)
 ]]></Implementation>