Index: vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r49110 -r49201
--- vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49110)
+++ vhTest/Fake/DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49201)
@@ -22,8 +22,7 @@
 
 <Method name="ZetAxGesynchroniseerd">
 <FormalSpec>AxGesynchroniseerd:%Boolean</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefKorting">
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r49170 -r49201
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49170)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49201)
@@ -763,8 +763,19 @@
 <FormalSpec>Korttekst:%String</FormalSpec>
 <Implementation><![CDATA[
 	If ($Length(Korttekst) > 25) {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Maximum toegelaten aantal karakters is 25. De ingegeven tekst is "_$Length(Korttekst)_" lang.")
+		
+		set Io = ##class(TECH.IO).%New()
+		do Io.Redirect()
+		zzdump Korttekst
+		do Io.Reset()
+		
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Maximum toegelaten aantal karakters is 25. De ingegeven tekst '"_Korttekst_"' is "_$Length(Korttekst)_" lang. ")
+		do Exception.VoegToeExtraInfo("HexDump : "_Io.GeefStream().Read())
+				
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+		
 	}
+	
 	Do ..Data0.ZetPiece(1, Korttekst)
 ]]></Implementation>
 </Method>