Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47784 -r47905
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47784)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47905)
@@ -825,7 +825,9 @@
 
 <Method name="ZetLinkType">
 <FormalSpec>LinkType:%String</FormalSpec>
-<Implementation><![CDATA[	Quit ..Data0.ZetPiece(23,LinkType)
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(207).String("Zetpiece 23 " _ LinkType)
+	Do ..Data0.ZetPiece(23,LinkType)
 ]]></Implementation>
 </Method>
 
@@ -903,7 +905,7 @@
 		#dim JIndex As %String = "J"_..LeverancierNr
 		If $Length(JIndex)<2 Set JIndex = $Order(^KPR(..ProductNummer,"J"))		
 		Set:($Length(JIndex)>1) r%DataJ = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,JIndex)
-		Do:($Length(JIndex)<2) ##class(Tools.Wlip).%New(207).String("J node : leverancier niet gekend")
+		Do:($Length(JIndex)<2) ##class(Tools.Wlip).%New(207).String("J node : leverancier "_ ..LeverancierNr _" niet gekend")
 	}
 	Quit r%DataJ
 ]]></Implementation>