Index: EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml
===================================================================
diff -u -r32050 -r32074
--- EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(.../BinaireFoutWaardeBepaler.cls.xml)	(revision 32050)
+++ EXT/Optima/CalculPrix/impl/BinaireFoutWaardeBepaler.cls.xml	(.../BinaireFoutWaardeBepaler.cls.xml)	(revision 32074)
@@ -14,7 +14,7 @@
 		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
 		#dim CompiledPropertyID = Exception.ClassName_":"_Exception.PropertyName
 		If $$$Not(##class(%CompiledProperty).%ExistsId(CompiledPropertyID)) {
-			Do ##class(TECH.Exceptions.InvalidInputException).Throw("CompiledProperty met ID '"_CompiledPropertyID_"' bestaat niet.")
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("CompiledProperty met ID '"_CompiledPropertyID_"' bestaat niet"_$S(Exception.ClassName="":" (Klassenaam is leeg)", 1:"")_".")
 		}
 		Set Property = ##class(%CompiledProperty).%OpenId(CompiledPropertyID)
 		Set BinaireFoutWaarde = BinaireFoutWaarde + Property.Parameters.GetAt("OptimaErrorCode")