Index: Tools/impl/MoveHelper.cls.xml
===================================================================
diff -u -r2316 -r2654
--- Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 2316)
+++ Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 2654)
@@ -97,18 +97,14 @@
 <Method name="ValideerNamen">
 <FormalSpec>ClassFrom:%String,ClassTo:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim BezwaarMelding As %String = ""
-	If ClassFrom = "" {
-		Set BezwaarMelding="ClassFrom is leeg." 
-	} ElseIf ClassTo = "" {
-		Set BezwaarMelding="ClassTo is leeg." 
-	} ElseIf $$$Not(..IsGeldigeCacheNaam(ClassTo)) {
-		Set BezwaarMelding="ClassTo is geen geldige Caché Klassenaam ("_$$$LCVT(ClassTo)_")"
-	}
+	Set BezwaarMeldingen = ##class(%ListOfDataTypes).%New()
+
+	Do:(ClassFrom = "") BezwaarMeldingen.Insert("ClassFrom is leeg.")
+	Do:($$$Not(##class(%Dictionary.ClassDefinition).%ExistsId(ClassFrom))) BezwaarMeldingen.Insert(ClassFrom_" bestaat niet.")
+	Do:(ClassTo = "") BezwaarMeldingen.Insert("ClassTo is leeg.")
+	Do:$$$Not(..IsGeldigeCacheNaam(ClassTo)) BezwaarMeldingen.Insert("ClassTo is geen geldige Caché Klassenaam ("_$$$LCVT(ClassTo)_")")
 	
-	If $L(BezwaarMelding) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New(BezwaarMelding))
-	}
+	Do:BezwaarMeldingen.Size ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New(##class(TECH.ListUtils).ListToPieces(BezwaarMeldingen,$$$CRLF)))
 ]]></Implementation>
 </Method>