Index: vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml
===================================================================
diff -u -r36686 -r41758
--- vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml	(.../TestProblemen.cls.xml)	(revision 36686)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml	(.../TestProblemen.cls.xml)	(revision 41758)
@@ -62,33 +62,33 @@
 	Try {
 		Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken())
 	} Catch {
-		#dim Exceptie As %String = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
 	}
 	
-	Do $$$AssertTrue($IsObject(Context.GeefBerekeningProblemen()))
-	Do $$$AssertEquals(Context.GeefBerekeningProblemen().Count(),1)
-	
-	#dim BerekeningProbleem As DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar = Context.GeefBerekeningProblemen().GetAt(1)
-	
-	Do $$$AssertTrue(BerekeningProbleem.%Extends("DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar"))
-	Do $$$AssertEquals(BerekeningProbleem.GeefNiveau(),##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningProbleemNiveau).Fout())
-	Do $$$AssertEquals(BerekeningProbleem.GeefReden(),RedenOmTeFalen)
-	Do $$$AssertEquals(BerekeningProbleem.GeefRol(),FoutieveBuilder.GeefRol())
-	#dim GeprobeerdeSelectieKenmerkenIterator As TECH.Iterator = BerekeningProbleem.GeefGeprobeerdeSelectieKenmerkenIterator()
-	Do $$$AssertTrue(GeprobeerdeSelectieKenmerkenIterator.HasNext(),"Er zijn selectiekenmerken geprobeerd")
-	#dim GeprobeerdeSelectieKenmerken As DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken = GeprobeerdeSelectieKenmerkenIterator.Next()
-	Do $$$AssertEquals(GeprobeerdeSelectieKenmerken.GeefOpmerking(),"Eenvoudige selectie")
-	#dim SelectieKenmerkenIterator As TECH.Iterator = GeprobeerdeSelectieKenmerken.GeefSelectieKenmerkIterator()
-	Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
-	#dim SelectieKenmerk As DOM.PM.Maatwerk.Calc.Common.Probleem.SelectieKenmerk = SelectieKenmerkenIterator.Next()
-	Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsEenNaamDieNietBestaat")
-	Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsEenWaardeDieNietBestaat")
-	Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
-	Set SelectieKenmerk = SelectieKenmerkenIterator.Next()
-	Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsOokEenNaamDieNietBestaat")
-	Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsOokEenWaardeDieNietBestaat")
-	Do $$$AssertFalse(SelectieKenmerkenIterator.HasNext())
-	Do $$$AssertTrue($Length(BerekeningProbleem.ToString())>0)
+	if $$$AssertEquals($classname(Context.GeefBerekeningProblemen()),"%Collection.ListOfObj") {
+		if $$$AssertEquals(Context.GeefBerekeningProblemen().Count(),1) {
+			#dim BerekeningProbleem As DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar = Context.GeefBerekeningProblemen().GetAt(1)
+			if $$$AssertTrue(BerekeningProbleem.%Extends("DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar")) 
+			Do $$$AssertEquals(BerekeningProbleem.GeefNiveau(),##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningProbleemNiveau).Fout())
+			Do $$$AssertEquals(BerekeningProbleem.GeefReden(),RedenOmTeFalen)
+			Do $$$AssertEquals(BerekeningProbleem.GeefRol(),FoutieveBuilder.GeefRol())
+			#dim GeprobeerdeSelectieKenmerkenIterator As TECH.Iterator = BerekeningProbleem.GeefGeprobeerdeSelectieKenmerkenIterator()
+			Do $$$AssertTrue(GeprobeerdeSelectieKenmerkenIterator.HasNext(),"Er zijn selectiekenmerken geprobeerd")
+			#dim GeprobeerdeSelectieKenmerken As DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken = GeprobeerdeSelectieKenmerkenIterator.Next()
+			Do $$$AssertEquals(GeprobeerdeSelectieKenmerken.GeefOpmerking(),"Eenvoudige selectie")
+			#dim SelectieKenmerkenIterator As TECH.Iterator = GeprobeerdeSelectieKenmerken.GeefSelectieKenmerkIterator()
+			Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
+			#dim SelectieKenmerk As DOM.PM.Maatwerk.Calc.Common.Probleem.SelectieKenmerk = SelectieKenmerkenIterator.Next()
+			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsEenNaamDieNietBestaat")
+			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsEenWaardeDieNietBestaat")
+			Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
+			Set SelectieKenmerk = SelectieKenmerkenIterator.Next()
+			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsOokEenNaamDieNietBestaat")
+			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsOokEenWaardeDieNietBestaat")
+			Do $$$AssertFalse(SelectieKenmerkenIterator.HasNext())
+			Do $$$AssertTrue($Length(BerekeningProbleem.ToString())>0)
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r41343 -r41758
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 41343)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 41758)
@@ -73,7 +73,7 @@
 	
 	If ("" '= ..IngegevenKenmerken) {
 		Do Detail.Write(" IngegevenKenmerken:{" )
-		Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,1).ToString())
+		Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,1).ToStream())
 		Do Detail.WriteLine("}")
 	}