Index: EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml
===================================================================
diff -u -r32096 -r33643
--- EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(.../BinaireFoutWaardeBepaler.cls.xml)	(revision 32096)
+++ EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(.../BinaireFoutWaardeBepaler.cls.xml)	(revision 33643)
@@ -3,16 +3,27 @@
 <Class name="EXT.Optima.CalculPrix.impl.BinaireFoutWaardeBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="GekendeProperties">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="BepaalBinaireFoutWaarde">
 <FormalSpec>ObjectConverterException:TECH.ObjectUtils.ObjectConverterException</FormalSpec>
 <ReturnType>%BigInt</ReturnType>
 <Implementation><![CDATA[
 	#dim BinaireFoutWaarde As %BigInt = 0
 	
+	do ..GekendeProperties.Clear()
+		
 	#dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ObjectConverterException.GeefInnerExcepties())
 	While ExceptionsIterator.HasNext() {
 		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
+		#dim GekendeProperty As TECH.String = Exception.ClassName_":"_Exception.PropertyName
+		continue:..GekendeProperties.IsDefined(GekendeProperty)
 		Set BinaireFoutWaarde = BinaireFoutWaarde + ##class(TECH.CompiledClassUtils).GeefPropertyParameter(Exception.ClassName,Exception.PropertyName,"OptimaErrorCode")
+		do ..GekendeProperties.SetAt(GekendeProperty,GekendeProperty)
 	}
 	
 	Quit BinaireFoutWaarde
Index: vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml
===================================================================
diff -u -r32096 -r33643
--- vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml	(.../Test.cls.xml)	(revision 32096)
+++ vhUnitTest/EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler/BepaalBinaireFoutWaarde/Test.cls.xml	(.../Test.cls.xml)	(revision 33643)
@@ -30,13 +30,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestTweeMaalDezelfdeProperty">
+<Method name="Test: Foute property wordt in rekening gebracht">
 <Implementation><![CDATA[
 	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
-	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+	Do ..AssertBinaireWaarde(8)
+]]></Implementation>
+</Method>
 
-	Do ..AssertBinaireWaarde(16)
-	// Is het niet beter als deze slechts 1 maal geteld wordt?  dus BinaireFoutWaarde = 8  ???
+<Method name="Test: Foute properties worden slechts 1x in rekening gebracht">
+<Implementation><![CDATA[
+	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+	Do ..VoegToeObjectConverterPropertyException("FrontEindkapKleur")
+	Do ..AssertBinaireWaarde(8)
 ]]></Implementation>
 </Method>