Index: TECH/ObjectUtils/ObjectConverterException.cls.xml
===================================================================
diff -u -r2218 -r2220
--- TECH/ObjectUtils/ObjectConverterException.cls.xml	(.../ObjectConverterException.cls.xml)	(revision 2218)
+++ TECH/ObjectUtils/ObjectConverterException.cls.xml	(.../ObjectConverterException.cls.xml)	(revision 2220)
@@ -10,34 +10,56 @@
 </Method>
 
 <Method name="ConverteerInputExceptionsNaarOutput">
+<ReturnType>TECH.ObjectUtils.ObjectConverterException</ReturnType>
 <Implementation><![CDATA[
+	Set NewException = ..%New(..GeefOmschrijving())
+
 	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..GeefInnerExcepties())
 	While (ExceptionsIterator.HasNext()) {
-		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
-		If Exception.InputOutput = "input" {
-			Set Exception.InputOutput = "output"
-		}		
-		Set Exception.PropertyNameFrom = ""
-		Set Exception.PropertyNameTo = ""
-		Set Exception.ClassName = ""
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next().%ConstructClone($$$True)
+		If Exception.%Extends(##class(TECH.ObjectUtils.ObjectConverterPropertyException).%ClassName($$$True)) {
+			If Exception.InputOutput = "input" {
+				Set Exception.InputOutput = "output"
+			}		
+			Set Exception.PropertyNameFrom = ""
+			Set Exception.PropertyNameTo = ""
+			Set Exception.ClassName = ""
+		}
+		Do NewException.VoegToeInnerExceptie(Exception)
 	}
+	
+	Quit NewException
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerOutputExceptionsNaarInput">
-<FormalSpec>ObjectConvertData:TECH.ObjectUtils.ObjectConvertData</FormalSpec>
+<FormalSpec>ObjectConvertData:TECH.ObjectUtils.ObjectConvertData,InputObjectClassName:%String=""</FormalSpec>
+<ReturnType>TECH.ObjectUtils.ObjectConverterException</ReturnType>
 <Implementation><![CDATA[
+	Set NewException = ..%New(..GeefOmschrijving())
+	
 	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(..GeefInnerExcepties())
 	While (ExceptionsIterator.HasNext()) {
-		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
-		If Exception.InputOutput = "output" {
-			Set Exception.InputOutput = "input"
-			Set Exception.PropertyName = ..GeefInputPropertyName(Exception, ObjectConvertData)
-		}		
-		Set Exception.PropertyNameFrom = Exception.PropertyName
-		Set Exception.PropertyNameTo = ""
-		Set Exception.ClassName = ""
+		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next().%ConstructClone($$$True)
+		If Exception.%Extends(##class(TECH.ObjectUtils.ObjectConverterPropertyException).%ClassName($$$True)) {
+			If Exception.InputOutput = "output" {
+				Set Exception.InputOutput = "input"
+				Set Exception.PropertyName = ..GeefInputPropertyName(Exception, ObjectConvertData)
+				Set Exception.ClassName = InputObjectClassName
+				Set Exception.PropertyNameFrom = Exception.PropertyName
+				Set Exception.PropertyNameTo = ""
+			}
+			Else {
+				// Eigenlijk moet hier niks gebeuren, want inputs zijn al oké, maar testen moeten dan ook mee aangepast worden --> TO DO ! 
+				Set Exception.ClassName = ""
+				Set Exception.PropertyNameFrom = Exception.PropertyName
+				Set Exception.PropertyNameTo = ""
+			}
+		}
+		Do NewException.VoegToeInnerExceptie(Exception)
 	}
+	
+	Quit NewException
 ]]></Implementation>
 </Method>