Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45918 -r45925
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45918)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45925)
@@ -35,6 +35,17 @@
 	Do Product.ZetKorttekst("Korttekst is 26 kar. lang.")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetKorttekst zet de korttekst">
+<Implementation><![CDATA[
+	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+	#dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).OpenId(..#ProductId)
+	
+	Do Product.ZetKorttekst("Korttekst")
+	
+	Do $$$AssertEquals(Product.GeefKorttekst(),"Korttekst")
+]]></Implementation>
+</Method>
 </Class>