Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r48000 -r49207
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 48000)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 49207)
@@ -28,7 +28,7 @@
 <Implementation><![CDATA[
 	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Maximum toegelaten aantal karakters is 25. De ingegeven tekst is 26 lang.")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Maximum toegelaten aantal karakters is 25. De ingegeven tekst 'Korttekst is 26 kar. lang.' is 26 lang.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
 	Do Product.ZetKorttekst("Korttekst is 26 kar. lang.")