Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r2182 -r2788
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2182)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2788)
@@ -10,12 +10,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set rset = ##class(%ResultSet).%New("TECH.PubSub.impl.EventDispatcher:qAlleSubscriptions")
-	Set sc = rset.Execute(Event)
-	While (rset.Next(.sc)){
+	Set sc = rset.Execute(Event)	
+	While (rset.Next(.sc)){		
 		If ($SYSTEM.Status.IsOK(sc)) {
 			Set Subscription = ##class(TECH.PubSub.EventSubscription).%OpenId(rset.Data("ID"))
 			Set $ZTRAP="DispatchError"
 			Do $ZOBJCLASSMETHOD(Subscription.RespondingClass, Subscription.RespondingMethod, Event)
+			Set $ZTRAP=""
 			Goto EindeIf
 DispatchError
 			Set $ZTRAP=""