Index: vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml
===================================================================
diff -u -r1074 -r2139
--- vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml	(.../ValidatorTest.cls.xml)	(revision 1074)
+++ vhUnitTest/TECH/OBJ/Validator/ValidatorTest.cls.xml	(.../ValidatorTest.cls.xml)	(revision 2139)
@@ -81,10 +81,12 @@
 <Implementation><![CDATA[
 	$$$LocalErrorTrapOnLabeled("TestFailedReturnType","")
 	set ..ResultTrap = 0 
+	Set $ZTRAP = "Catch"
 	do ..FailedReturnType()
+Catch Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertTrue(Exception.GeefOmschrijving()["Validate van %Library.Integer is niet gelukt.","Failed returntype validation")	
 
-	do $$$AssertTrue(..ResultTrap,"Failed returntype validation")	
-
 	$$$LocalErrorTrapOff
 	
 	quit