Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r717 -r876
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 717)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 876)
@@ -31,6 +31,11 @@
 			Set MaakEventCode = MaakEventCode _$C(13,10)_ "Do $ZOBJCLASSMETHOD("""_Subscription.RespondingClass_""", """_Subscription.RespondingMethod_""", Event)"
 
 			Do Logger.ErrorMail(Exception.GeefOmschrijving(),"Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject)_$C(13,10,13,10)_"Reinvoke:"_$C(13,10)_MaakEventCode_$C(13,10,13,10)_"Error: "_$C(13,10)_Exception.ToString())
+			
+			
+			if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("TECH.PubSub.Rethrow_Event") {
+				do ##class(TECH.ExceptionHandler).Throw(Exception)
+			}
 		}
 	}