Index: TECH/PubSub/impl/WachtendEventAanmaken.cls.xml
===================================================================
diff -u -r17777 -r18350
--- TECH/PubSub/impl/WachtendEventAanmaken.cls.xml	(.../WachtendEventAanmaken.cls.xml)	(revision 17777)
+++ TECH/PubSub/impl/WachtendEventAanmaken.cls.xml	(.../WachtendEventAanmaken.cls.xml)	(revision 18350)
@@ -16,8 +16,10 @@
 		Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New()
 		Do Logger.ErrorMail("Onbewaarbare subscription","Event: "_Event.Type_", Status: "_$$ParseStatus^vhLib(Status))
 	} else {
-		while '..EventProcessed(WachtendEvent.%Id()) {
-			hang 0.2
+		if Event.%ClassName(1) '= "TECH.Events.KenmerkModifiedEvent" {
+			while '..EventProcessed(WachtendEvent.%Id()) {
+				hang 0.02
+			}
 		}
 	}
 ]]></Implementation>