Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r734 -r934
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 734)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 934)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-11 13:38:46">
 <Class name="TECH.PubSub.impl.EventDispatcher">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62018,31818.297585</TimeChanged>
+<TimeChanged>62161,49201.019676</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="DispatchEvent">
@@ -19,6 +19,7 @@
 			Do $ZOBJCLASSMETHOD(Subscription.RespondingClass, Subscription.RespondingMethod, Event)
 			Goto EindeIf
 DispatchError
+			Set $ZTRAP=""
 			Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New()
 			Do Logger.ErrorMail("Foutieve subscription","Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Error: "_$ZE)
 EindeIf
@@ -43,5 +44,5 @@
 <SqlQuery>	SELECT ID FROM TECH_PubSub.EventSubscription WHERE EventType = :Event.Type</SqlQuery>
 </Query>
 </Class>
-<Checksum value="3800689386"/>
+<Checksum value="2378706488"/>
 </Export>