Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml
===================================================================
diff -u -r1089 -r1195
--- TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 1089)
+++ TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 1195)
@@ -4,15 +4,17 @@
 <Super>%RegisteredObject</Super>
 
 <Method name="VerwerkAlle">
+<ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Lock +^WachtendEventVerwerker:0
-	if $TEST Do ..StartVerwerking()
+	if $TEST {
+		do ..%New().StartVerwerking()
+	}
 	Lock -^WachtendEventVerwerker
 ]]></Implementation>
 </Method>
 
 <Method name="StartVerwerking">
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT ID FROM TECH_PubSub.WachtendEvent ORDER BY ID ASC")