Index: Tools/CodeGen/EnumeratieVerwerkerGenerator.cls.xml
===================================================================
diff -u -r2026 -r2135
--- Tools/CodeGen/EnumeratieVerwerkerGenerator.cls.xml	(.../EnumeratieVerwerkerGenerator.cls.xml)	(revision 2026)
+++ Tools/CodeGen/EnumeratieVerwerkerGenerator.cls.xml	(.../EnumeratieVerwerkerGenerator.cls.xml)	(revision 2135)
@@ -82,7 +82,7 @@
 		Set VoorafgaandAanIf = $$$TAB_"} Else"
 	}
 	Do Methode.Implementation.WriteLine($$$TAB_"} Else {")
-	Do Methode.Implementation.WriteLine($$$TAB_$$$TAB_"Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New("_ParameterVariabeleNaam_","""_KlasseNaam_""")")
+	Do Methode.Implementation.WriteLine($$$TAB_$$$TAB_"Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New("_ParameterVariabeleNaam_","""_KlasseNaam_""",$classname())")
 	Do Methode.Implementation.WriteLine($$$TAB_$$$TAB_"Do ##class(TECH.ExceptionHandler).Throw(Exceptie)")
 	Do Methode.Implementation.WriteLine($$$TAB_"}")
 	do Methode.%Save()
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>