Index: TECH/Exceptions/EnumerationException.cls.xml
===================================================================
diff -u -r2134 -r2135
--- TECH/Exceptions/EnumerationException.cls.xml	(.../EnumerationException.cls.xml)	(revision 2134)
+++ TECH/Exceptions/EnumerationException.cls.xml	(.../EnumerationException.cls.xml)	(revision 2135)
@@ -10,14 +10,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerwerkerKlasse">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Omschrijving:%String,EnumeratieKlasse:%String</FormalSpec>
+<FormalSpec>Omschrijving:%String,EnumeratieKlasse:%String,VerwerkerKlasse:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(Omschrijving)
 	Set ..EnumeratieKlasse = EnumeratieKlasse
+	set ..VerwerkerKlasse = VerwerkerKlasse
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -30,7 +36,7 @@
 
 <Method name="GeefOmschrijving">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "Enumeratie '" _ ..Omschrijving _ "' van '"_..EnumeratieKlasse_"' bestaat niet in de verwerker"_$$GetStackToString^vhLib.System()
+<Implementation><![CDATA[	Quit "Enumeratie '" _ ..Omschrijving _ "' van '"_..EnumeratieKlasse_"' bestaat niet in verwerker '"_..VerwerkerKlasse_"'"_$$GetStackToString^vhLib.System()
 ]]></Implementation>
 </Method>
 </Class>