Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml
===================================================================
diff -u -r31365 -r31369
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml	(.../TestBodemKleurCode.cls.xml)	(revision 31365)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestBodemKleurCode.cls.xml	(.../TestBodemKleurCode.cls.xml)	(revision 31369)
@@ -13,7 +13,7 @@
 	do ..VerwachteWaarden.SetAt("N1", ..Enum.BodemKleur.TennesseeNoot)
 	do ..VerwachteWaarden.SetAt(" S", ..Enum.BodemKleur.Zwart)
 	do ..VerwachteWaarden.SetAt(" W", ..Enum.BodemKleur.Wit)
-	do ..VerwachteWaarden.SetAt("XG", ..Enum.BodemKleur.OnyxGrijs)
+	//do ..VerwachteWaarden.SetAt("XG", ..Enum.BodemKleur.OnyxGrijs)
 	
 	do ..AssertWaarden(..TAORKenmerken, ..GeefWaardenIterator(), ..Enum.KenmerkNaam.BodemKleur, 24, 25)
 ]]></Implementation>
@@ -22,7 +22,14 @@
 <Method name="GeefWaardenIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.enu.TAORBodemKleur).ValueListIterator()
+<Implementation><![CDATA[
+	#dim Waarden As %ListOfDataTypes = ##class(DOM.PM.enu.TAORLadeKleur).ValueList()
+	
+	do ##class(TECH.ListUtils).RemoveItemFromList(..Enum.LadeKleur.OnyxGrijs, Waarden)
+
+	quit ##class(TECH.ListIterator).%New(Waarden)
+	
+	//quit ##class(DOM.PM.enu.TAORBodemKleur).ValueListIterator()
 ]]></Implementation>
 </Method>
 </Class>